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IDENTIFICATION 
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1 PRODUCT CODE: AC=F942B-MC 

c 

Al PRODUCT NAME:  CZRMTBO RMO5/3/2 DRIVE COMPATIBILITY TEST 
23 PRODUCT DATE: APRIL 1981 

25 MAINTAINER: CX DIAGNOSTIC GROUP 

27 AUTHOR : MIKE LEAVITT 

50 

31 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
32 NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
33 EQUIPMENT C TION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
34 NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 
36 THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
37 LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
38 TERMS OF SUCH LICENSE. 

40 DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 
41 USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 
42 SUPPLIED BY DIGITAL. 

44 COPYRIGHT (C) 1980,1981 DIGITAL EQUIPMENT CORPORATION 


SEQ 0001 


—_— -_ ee ee ee ee _— 


-_. 
C7RMTBO RMOS/3/2 DR CMPT TST MACRO VO4.00 4-APR~-81 18:12:15 PAGE 2 


| SEQ 0002 
1 CONTENTS 
et Sie BE Pes i Se a Sea 
3 
4 1.0 ABSTRACT 
| g 2.0 HARDWARE REQUIREMENTS 
8 3.0 PRELIMINARY PROGRAM REQUIREMENTS 
10 4.0 GENERAL PROGRAM CONSIDERATIONS 
12 4.1 SYSMAC 
13 4.2 XXDP 
14 4.3 ACT 
15 4.4 APT 
16 4.5 DUAL-ACCESS 
17 4.6 MEMORY MANAGEMENT 
18 4.7 MEMORY PARITY OPTION 
19 4.8 BAD SECTOR 
20 4.9 EXECUTION TIME 
$e 5.0 PROGRAM LOAD MEDIA 
st 6.0 PROGRAM OPTIONS 
26 6.1 STARTING ADDRESSES 
27 6.2 ‘SOFTWARE’ SWITCH REGISTER 
8 6.3 OPERATIONAL SWITCH SETTINGS 
30 7.0 RUNNING THE PROGRAM 
} 
3¢ 8.0 OPERATIONAL DIALOGUE 
34 8.1 DJALOGUE FOR ADDRESS 200 START 
35 8.2 DIALOGUE FOR ADDRESS 204 START 
36 8.3 DIALOGUE FOR ADDRESS 210 START 
37 8.4 PASS 1 DIALOGUE 
3 8.5 PASS 2 DIALOGUE 
£0 9.0 DESCRIPTION OF TESTS 
42 9.7 DESCRIPTION OF PASS 1 TESTS 
‘3 9.2 DESCRIPTION OF PASS 2 TESTS 
$3 10.0 PRINTOUT OF TEST RESULTS 
pid | 10.1 OVERWRITE AND DRIVE COMPATIBILITY DATA TEST RESULTS 
ras 11.0 ERROR REPORTING 
51 | 11.1 COMMON ERRORS 
52 11.2 ERROR HANDLING 
23 11.3 ERROR PRINTOUT EXAMPLE 
23 12.0 TABLE DESCRIPTIONS 
$7 12.1 TABLE A - BASIC READ/WRITE TEST SECTORS 


teresa Sees ms eee -- ——-< - 


. D 1 
| CZRMTBO RMOS/3/2 DR CMPT TST MACRO vV04.00 4-APR-81 18:12:15 PAGE 2-1 
| SEQ 0003 


58 12.2 TABLE B - WORSE CASE DATA PATTERN 
59 12.3 TABLE C - CYLINDER BLOCK ASSIGNMENT FOR A GIVEN SURFACE 
60 12.4 TABLE D - BASIC CYLINDER BLOCK LAYOUT EXAMPLE 
61 12.5 TABLE E - OVERWRITE CYLINDERS 
62 12.6 TABLE F - SELF-TEST CYLINDERS 
63 12.7 TABLE G - PSEUDO=RANDOM DATA PATTERN 
65 13.0 RM SOFTWARE DRIVER DOCUMENT 


—_ oe. ee ee 


CZ7RMTBO RMOS/3/2 DR CMPT TST 


CO OWNA MSW --O OO NAW Who -a 


f\) -32 3 23 SS 


- 
MACRO V04.00 4-APR-81 18:12:15 PAGE 3 


1.0 ABSTRACT 


THE PURPOSE OF THIS PROGRAM IS 70 VERIFY THE COMPATIBILITY OF UP TO 16 
RMO5/3/2 DRIVES WHICH MAY RESIDE ON 1 OR MORE RH/RM SUBSYSTEMS. 
COMPATIBILITY IS DEFINED HERE AS THE ABILITY OF A DRIVE TO WRITE DATA 
WHICH CAN BE READ SUCCESSFULLY BY ALL OTHER DRIVES, AND ADDITIONALLY THE 
wet Uy OF A DRIVE TO COMPLETELY OVER-WRITE DATA WRITTEN BY ALL OTHER 


THE PROGRAM IS DESIGNED TO DETE°T THE FOLLOWING CONDITIONS WHICH MOST 
COMMONLY CAUSE INCOMPATIBILITY BETWEEN DRIVES: 


1. HEAD MISALIGNMENT 

2. POSITIONER LATERAL MISALIGNMENT 

3. SPINDLE-CARTRIDGE INTERFACE RUNOUT 

4. IMPROPER LEVELS OF WRITE CURRENT 

5. INCORRECT ADDRESSING OF READ/WRITE HEADS 


THE TESTING IS DONE IN TWO PASSES. e PASS 1, COMPATIBILITY DATA 
PATTERNS ARE WRITTEN BY ALL THE DRIVES UPON THE SAME DISK CARTRIDGE. 
AND THE BASIC READ/WRITE CAPABILITY OF EACH DRIVE IS DEMONSTRATED. IN 
PASS 2, THE COMPATIBILITY DATA FROM ALL DRIVES IS READ BY EACH DRIVE, 
WITH HEAD OFFSET, AND THIS IS COMPARED WITH EACH DRIVE'S 

ABILITY TO READ ITS OWN DATA. IN ADDITION, EACH DRIVE'S CAPABILITY TO 
OVERWRITE DATA WRITTEN BY ALL OTHER DRIVES IS TESTED ON THE SECOND 
PASS. (FOR THE REMAINDER OF THIS SPECIFICATION, THE ABOVE DEFINITIONS 
OF THE FIRST AND SECOND PASS SHALL APPLY). 


IN BOTH PASSES, THE PROGRAM DIRECTS THE OPERATOR IN THE LOADING AND 
UNLOADING OF DRIVES AND THE MOVEMENT OF THE CARTRIDGE FROM DRIVE TO 
DRIVE, THROUGH MESSAGES AT THE CONSOLE TERMINAL. AT THE COMPLETION OF 
TESTING ON EACH DRIVE DURING THE SECOND PASS A SUMMARY IS PRINTED OF 
COMPATIBILITY TEST RESULTS FOR THAT DRIVE. 


WITHIN THE VARIOUS TESTS OF BOTH PASSES, THE CAPABILITY IS PROVIDED TO 
LOOP ON CURRENT OPERATIONS, AND SWITCH REGISTER OPTIONS ARE PROVIDED. 
cect ies pag OF LOOPING, RUNNING, AND REPORTING MODES’ (SEE 


UNEXPECTED ERRORS WILL BE REPORTED AS THEY OCCUR. THE REPORT WILL 
INCLUDE DESCRIPTION AND APPLICABLE DEVICE REGISTER CONTENTS. 


2.0 HARDWARE REQUIREMENTS 


———«_- HARDWARE IS REQUIRED TO RUN THE RMOQ5/3/2 DRIVE COMPATIBILITY 
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SEO 0005 

58 KwW1l=L OR KW11-P CLOCK 

§9 PROGRAM LOADING DEVICE 

60 TERMINAL 

61 RH11 OR RH70 CONTROLLER 

62 1 TO 8 DISK DRIVES PER CONTROLLER (ANY COMBINATION OF RMOS'S. RMO3°S OR RMO2'S) 
64 ANY COMBINATION OF DRIVE TYPES MAY BE MIXED TOGEHTER ON A CONTROLLER. BUT. 

65 TO THE PHYSICAL SIZE OF THE DISK PACKS, THE RMO3/2°S AND THE RMOS?S CANNOT BE 
66 SELECTED FOR COMPATIBILITY TOGETHER. If FOR SOME REASON AN RMO3/2 AND AN RMOS 
67 ARE SELECTED FOR COMPATIBILITY TOGETHER, THE PROGRAM WILL RECOGNIZE THIS UPON 
68 THE DIFFERENT DRIVE TYPE AND TYPE THE FOLLOWING MESSAGE: 

70 CANNOT SELECT RMO3/2'S AND RMOS'S TOGETHER (NOT COMPATIBLE) 

72 

73 IN ADDITION. & SINGLE RMO3/2_ OR RMOS DISK CARTRIDGE IS REQUIRED WHICH MUST BE 
7, FORMATTED IN 32 SECTOR FORMAT, ON A RELIABLE WELL-ALIGNED(REFERENCE PACK) 

75 RMO372 OR RMOS DRIVE. THIS CARTRIDGE WILL BE MOVED Thom DRIVE TD OR IUe CON UP 
76 TO 16 DRIVES) ON EACH OF THE TWO PASSES. 

78 

80 3.0 PRELIMINARY PROGRAM REQUIREMENTS 

82 BEFORE RUNNING THE RMOS/3/2 DRIVE COMPATIBILITY PROGRAM, THE SUBSYSTEM(S) 
33 UNDER TEST SHOULD BE CAPABLE OF PASSING THE DISKLESS TESTS AND THE THE 

vA FUNCTIONAL TESTS. IN ADDITION, THE CARTRIDGE MUST BE FORMATTED IN 32 SECTOR 
85 FORMAT USING THE PACK FORMATTER. 

87 

89 4.0 GENERAL PROGRAM CONSIDERATIONS 

31 4.1 SYSMAC 

93 THIS PROGRAM USES PORTIONS OF THE SYSMAC DIAGNOSTIC SYSTEM MACRO 

94 PACKAGE. 

95 

96 

97 

98 4.2  XXDP 
100 THIS PROGRAM MAY BE LOADED UNDER XXDP. AND MAY BE RUN IN DUMP MODE 

101 ONLY. DUE TO MANUAL INTERVENTION AND LACK OF END-OF-PASS HOOKS. THE 

102 PROGRAM IS NOT XXDP CHAINABLE. 

104 
105 4.3 ACT 


106 
THIS PROGRAM MAY BE LOADED UNDER ACT AND MAY BE RUN IN DUMP MODE ONLY. 


IT IS NOT CHAINABLE UNDER ACT. 


4.4 APT 
TH]S PROGRAM MAY BE LOADED BY THE APT SYSTEM, BUT MAY BE RUN IN 
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PROGRAM (DUMP) MODE ONLY. IT CANNOT BE RUN IN APT SCRIPT MODE. 


4.5  DUAL-ACCESS 


THIS PROGRAM DOES NOT UTILIZE THE DUAL-ACCESS OPTION IN ANY WAY, AND 
ALL DRIVES UNDER TEST SHOULD BE DE-SELECTED THROUGH THE PORT WHICH IS 
NOT IN USE , OR LOCKED ON THE PORT BEING TESTED. 


4.6 MEMORY MANAGEMENT 


MEMORY MANAGEMENT IS NOT WTILIZED IN THIS PROGRAM. IF IT IS 
INSTALLED, IT IS DISABLED BY THE PROGRAM, 


4.7 MEMORY PARITY OPTION 
IF PARITY MEMORY IS INSTALLED, MEMORY PARITY TRAPS ARE DISABLED BY THE 
PROGRAM. 


4.8 BAD SECTORS 


THE LIST OF BAD SECTORS ON THE CARTRIDGE IS OBTAINED FROM THE FIRST 
DRIVE TO BE TESTED ON THE CURRENT SUBSYSTEM. ACCORDING TO A SWITCH 
eo My OPTION (SEE SECTION 6.2) THIS LIST MAY BE TYPED AT THE 

ONSOLE AT THE START OF THE FIRST PASS. AFTER READING THE BAD SECTOR 
FILE, THE PROGRAM SEARCHES THE LIST OF BAD SECTORS TO DETERMINE IF ANY 
BAD SPOTS EXIST IN ANY TEST AREAS ON THE DISK PACK. IF A BAD SPOT IS 
tree SR tacctal IN ANY OF THE TEST AREAS, THE FOLLOWING MESSAGE 


PACK IS NOT ACCEPTABLE, CHANGE PACK AND TRY AGAIN. 


4.9 EXECUTION TIME 
THE TOTAL TIME REQUIRED TO RUN THE DRIVE COMPATIBILITY PROGRAM IS 
DIRECTLY PROPORTIONAL TO THE NUMBER OF DRIVES TO BE TESTED AND 


REQUIRES ABOUT 2 MINUTES PER RMOQ3/2 DRIVE AND ABOUT 5 MINUTES PER RMOS 
DRIVE, NOT INCLUDING OPERATOR INTERVENTION. 


5.0 PROGRAM LOAD MEDIA 


THIS PROGRAM CAN BE LOADED FROM PAPER TAPE USING THE ABSOLUTE LOADER 
OR FROM THE ACT OR APT SYSTEMS OR FROM ANY MEDIA SUPPORTED BY XXDP. 
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6.0 PROGRAM OPTIONS 


6.1 


6.2 


6.3 


STARTING ADDRESSES 
200 = THIS IS THE STARTING om Bae FOR DEFAULT PARAMETERS AND 


RUNNING OF PASS 1 AND PASS 2 ON A SINGLE SUBSYSTEM, THE 
PROGRAM WILL USE ore *RH/ RM BASE ADDRESS, INTERRUPT 
VECTOR AND PRIORITY. THE PROGRAM WILL ASSUME ALL DRIVES TO BE 
TESTED RESIDE ON ONE RH/RM SUBSYSTEM ONLY. 


204 - THIS IS_THE STARTING ADDRESS TO RUN PASS 1 ON ALL 


RH/RM SUBSYSTEMS WHICH RESIDE ON THIS PDP=-11 SYSTEM. THE 
PROGRAM WILL ASK FOR THE RH/RM BASE ADDRESS, INTERRUPT 
VECTOR, AND PRIORITY FOR EACH SUBSYSTEM ON THIS SYSTEM, 

IT ASKS FOR THE LETTER NAMES (A THRU H) ASSIGNED TO ALL 
et SUBSYSTEMS, AND THE DRIVE(S) WHICH WILL BE TESTED ON 


210 = THIS IS THE STARTING ADDRESS TO RUN PASS 2 ON 


ALL 
RH/RM SUBSYSTEMS ps ee “gp tig ON THIS PDP-11 SYSTEM. THE 
PROGRAM WILL ASK FOR THE RH/RM BASE ADDRESS, INTERRUPT 
VECTOR FOR EACH SUBSYSTEM ON THIS SYSTEM, AND IT ASKS FOR 
THE LETTER NAMES (A THRU H) ASSIGNED TO ALL OTHER SUBSYSTEMS, 
AND THE DRIVE(S) WHICH WILL BE TESTED ON EACH. 


*SOFTWARE’ SWITCH REGISTER 


. THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR 

THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS 
NOT PRESENT AND WILL USE A ‘SOFTWARE’ SWITCH REGISTER. THE 

*SOF TWARE ' SWITCH REGISTER IS LOCATED AT LOCATION 176 (8). THE 
SETTINGS OF THE *SOFTWARE* SWITCHES ARE CONTROLLED THROUGH A KEYBOARD 
ROUTINE WHICH IS CALLED BY TYPING A "CONTROL G*. THE PROGRAM WILL 
RECOGNIZE THE ‘CONTROL G* AT ANY TIME EXCEPT WHEN THE PROGRAM 
IS AT A_HIGHER PRIORITY PROCESSING AN RM80 INTERRUPT. THE 
*SOFTWARE’ SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 
TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 


*"SWR = NNNNNN NEW =" 


EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER | 
IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED.. ‘RUBOUT” 
"CONTROL U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 
DURING SWITCH ENTRY. 


ON PROCESSORS WITH HARDWARE SWITCH op See A We "SOF TWARE* SWITCH 
REGISTER MAY BE USED, IF THE PROGRAM FINDS ALL 1°S IN THE SWITCHES. 
ALL SWITCH REGISTER REFERENCES WILL BE TO THE ‘SOFTWARE’ REGISTER 
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 


OPERATIONAL SWITCH SETTINGS 


WITH ALL SWITCHES SET TO ZERO, THE PROGRAM WILL TYPE 
ALL ERRORS AND CONTINUE TESTING. 


a Ne ee . — a 


Se ee 
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SEQ O00 
229 
$3 THE SWITCH SETTINGS ARE: 
232 BIT OPTION 
233 —- " a 
234 15 HALT ON ERROR 
235 ic LOOP ON CURRENT TEST 
236 13 INHIBIT ERROR REPORTS 
237 12 REPORT DESCRIPTION ONLY, ON ERRORS 
238 11 JNUSED 
239 10 BELL ON ERROR 
240 09 LOOP ON ERROR 
241 08 APPLY RANDOM STALL BETWEEN OPERATIONS 
242 07 TYPE BAD SECTOR FILES (BSF°S) AT START 
243 06-00 UNUSED 
244 
245 
246 
oe 7.0 RUNNING THE PROGRAM 
249 ONCE THE PROGRAM HAS BEEN LOADED INTO CORE (IN A GIVEN SYSTEM, IF 
250 Uy? ARE MULTIPLE SYSTEMS) THE FOLLOWING STEPS MUST BE TAKEN TO RUN 
$24 THE PROGRAM: 
253 1. INSURE THAT ALL DRIVES TO BE TESTED ARE POWERED UP AND SINGLE 
Sie PORT SELECTED. 
$28 2. LOAD THE DESIRED START ADDRESS. 
258 3. SET ANY DESIRED BITS IN THE HARDWARE SWITCH REGISTER (IF 
o PRESENT). 
+d : 4. START THE PROGRAM, 
263 5. FOLLOW ALL INSTRUCTIONS TYPED BY THE PROGRAM PERTAINING TO 
264 THE MANUAL INTERVENTION ye ye og AND THE ALTERNATE USE OF 
oF MULTIPLE SYSTEMS (IF THERE ARE ANY) 
267 
268 
A 8.0 OPERATIONAL DIALOGUE 
271 THIS SECTION DESCRIBES THE CONSOLE TERMINAL DIALOGUE THROUGH WHICH THE 
272 PROGRAM DIRECTS THE OPERATOR, IN THE SELECTION OF OPTIONS AND THE 
273 LOADING AND UNLOADING OF DRIVES, AND THE MOVEMENT OF THE TEST 
274 CARTRIDGE. THE EXACT DIALOGUE WHICH IS 7 DEPENDS UPON THE STARTING 
soe ADDRESS WHICH WAS CHOSEN (SEE SECTION 6.1) 
277 IN THE FOLLOWING DISCUSSION AND IN THE PRINTOUT OF TEST RESULTS. 
278 DRIVES TO BE TESTED WILL BE REFERRED TO BY A LETTER AND A NUMBER. THE 
279 LETTER IS THE SUBSYSTEM LETTER NAME (OPERATOR ASSIGNED), AND THe 
280 NUMBER IS THE DRIVE NUMBER ON THAT SUBSYSTEM. FOR EXAMPLE, DRIVE C6 
au REFERS TO DRIVE 6 ON SUBSYSTEM C. 
283 
284 8.1 DIALOGUE FOR ADDRESS 200 START 
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uanetevan ADDRESS MAY BE USED FOR DEFAULTING PARAMETERS ON ONE 
THE PROGRAM FIRST IDENTIFIES ITSELF AS FOLLOWS: 
CZRMTBO = RMO5/3/2 DRIVE COMPATIBILITY TEST 
THEN, THE PROGRAM ASKS THE DRIVES TO BE TESTED. 
THE PROGRAM TYPES THE 
DRIVE LIST, AS IN THE FOLLOWING EXAMPLE: 
DRIVES = 2,5,7<CR> 


THE PROGRAM NOW PROCEEDS WITH PASS 1, AND DIRECTS THE OPERATOR IN THE 
MOUNTING OF THE PACK, AS DESCRIBED IN SECTION 8.4. 


PLEASE NOTE THAT THERE IS ONLY ONE SUBSYSTEM ON AN ADR. 200 START, 


AND IT IS NAMED SUBSYSTEM A. THE DRIVES IN THE ABOVE EXAMPLE WOULD BE 
14 TO AS A2,A5,A7 IN THE TEST RESULTS PRINTOUT AT THE END OF 


8.2 DIALOGUE FOR ADDRESS 204 START 
si bs STARTING ADDRESS MUST BE USED ON EACH SYSTEM, WHEN THERE IS MORE 
ONE SUBSYSTEM, BUT IT MAY ALSO BE USED WHEN THERE IS JUST ONE 
SUBSYSTEM (TOTAL), TO SPECIFY DRIVES TO TEST AND NON-DEFAULT PARAMETER 
VALUES, FOR PASS 1. 
THE PROGRAM IDENTIFIES ITSELF AS FOLLOWS: 
CZRMTBO ~ RMOS/3/2 DRIVE COMPATIBILITY TEST 
THEN, THE PROGRAM ASKS THE OPERATOR FOR THE DRIVES TO BE TESTED ON 
EACH OF THE POSSIBLE SUBSYSTEMS (STARTING WITH A — THE NAMES RANGE 
FROM SUBSYS A TO SUBSYS H. THERE COULD BE UP TO 8 SUBSYSTEMS, WITH A 
DRIVE ON EACH): 
SUBSYS A DRIVE(S) = 


—m THEN TYPES THE DESIRED DRIVE NUMBERS, AS IN THE FOLLOWING 


SUBSYS A DRIVE(S) = 2,5,7<CR> 
THE PROGRAM THEN VERIFIES THE DRIVE NUMBERS BY TYPING: 
WILL TEST DRIVE(S) 2,5,7 ON SUBSYS A. 
NEXT, THE PROGRAM ASKS THE FOLLOWING QUESTION: 
IS THERE ANOTHER SUBSYS (Y OR N)? 
THE OPERATOR TYPES ‘Y' OR ‘'N'. (IF JUST <CR> IS TYPED, THE PROGRAM 


ASSUMES THAT 'N' WAS TYPED). IF THE OPERATOR TYPED ‘N*, THE PROGRAM 
PROCEEDS WITH PASS 1, AND DIRECTS THE OPERATOR IN THE MOUNTING OF THE 
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PACK, AS DESCRIBED _IN SECTION 8.4. IF ‘Y* WAS TYPED, THE PROGRAM ASKS 
FOR THE NUMBERS OF THE DRIVES TO BE TESTED ON THE NEXT SUBSYSTEM 
(SUBSYS B) AS FOLLOWS: 


SUBSYS B DRIVE(S) = 
THE OPERATOR TYPES THE DRIVE NUMBERS, AS IN THE FOLLOWING EXAMPLE: 
SUBSYS B DRIVE(S) = 2,3<CR> 
THE PROGRAM THEN VERIFIES THE DRIVE NUMBERS. BY TYPING: 
WILL TEST DRIVE<S) 2,3 ON SUBSYS B. 
NEXT, THE PROGRAM WILL ASK: 
IS THERE ANOTHER SUBSYS (Y OR N)? 
AND IN THE SAME MANNER, THE OPERATOR SPECIFIES THE DRIVES ON EACH OF 
THE REMAINING SUBSYSTEMS, UNTIL ALL HAVE BEEN SPECIFIED. 


ALL SUBSYSTEMS MUST BE TESTED IN THE ORDER IN WHICH THE LETTERS ARE 
ASSIGNED (A_ THRU H). NEXT, THE PROGRAM ALLOWS THE OPERATOR TO ALTER 
THE RH/RM BUS ADDRESS, VECTOR ADDRESS FOR THIS SUBSYSTEM. FOR EACH 
PARAMETER THE CURRENT VALUE IS TYPED, AND THE OPERATOR IS GIVEN THE 
OPPORTUNITY TO TYPE IN A NEW VALUE, PLUS <CR>. IF JUST <CR> IS TYPED, 
THE PARAMETER IS NOT ar ae’ WHEN THE 

FOLLOWING DEFAULT VALUES ARE ASSIGNED: RH/RM BUS ADDRESS = 177670, 
VECTOR ADDRESS = 240, (IF 300 START). THE FOLLOWING EXAMPLE SHOWS A 
PRINTOUT IN WHICH BUS ADDRESS AND VECTOR WERE CHANGED: 


RMCS1 000000 177670 
RMVE C 000 254 


THEN THE PROGRAM PROCEEDS WITH PASS 1, AND DIRECTS THE OPERATOR IN THE 
MOUNTING OF THE PACK, AS DESCRIBED IN SECTION 8.4. AT THE COMPLETION 
OF PASS 1 ON THE SUBSYSTEM, THE PROGRAM WILL INFORM THE OPERATOR HOW 


TO PERFORM PASS 1 ON THE NEXT SUBSYSTEM. 


8.3 DIALOGUE FOR ADDRESS 210 START 


THIS STARTING ADDRESS MUST BE 13 ON EACH SYSTEM, WHEN THERE IS MORE 
THAN 1 SUBSYSTEM, BUT IT ALSO BE USED WHEN — IS JUST ONE 
SUBSYSTEM (TOTAL) , TO SPECIFY DRIVES TO TEST NON-DEF og 
Sy VALUES, FOR PASS 2. THE PROGRAM IDENTIFIES ITSELF, 


CZRMTBO - RMO5/3/2 DRIVE COMPATIBILITY TEST 
THE DIALOGUE FOR 210 START IS IDENTICAL TO THE DIALOGUE FOR THE 204 
START DESCRIBED ABOVE (SECTION ), FOR THE ee oe ee 


PARAMETERS AND THE SPECIFICATION OF ALL DRIVES TO BE 
VARIOUS SUBSYSTEMS. HOWEVER, AFTER THIS DIALOGUE IS COMPLETED, THE 
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PROGRAM PROCEEDS WITH PASS 2, AND DIRECTS THE OPERATOR IN THE MOVEMENT 
OF THE PACK, AS DESCRIBED IN SECTION 8.5. 


NOTE THAT SINCE THE APPROPRIATE PROCESSOR MUST BE STARTED AT THE 
STARTING ADDRESS FOR EACH SUBSYSTEM TO * TESTED, THE COMPATIBILITY 
TEST MAY BE PERFORMED IN STEPS, AT VARIOUS TIMES AND BETWEEN VARIOUS 
DISTANT LOCATIONS, BY MOVING THE TEST PACK AND SAVING THE PRINTOUT 
FROM EACH PASS ON EACH PDP=11 SYSTEM INVOLVED. 


8.4 PASS 1 DIALOGUE 


AFTER THE SELECTION OF ome aang a DRIVES HAS BEEN COMPLETED ON THE 
CURRENT SUBSYSTEM (SECTIONS 8.1-8.2), THE PROGRAM INDICATES THE START 
OF PASS 1 AS FOLLOWS: 


** STARTING PASS 1 ON SUBSYS A 


NOTE: THAT SUB-SYSTEM ‘A’ IS ALWAYS THE FIRST SUB-SYSTEM TO BE TESTED 
REGUARDLESS OF HOW MANY SUB-SYSTEMS ARE TO BE TESTED. 


NEXT, THE PROGRAM SELECTS THE FIRST DRIVE TO BE TESTED ON THIS 
SUBSYSTEM, AND INSTRUCTS THE OPERATOR TO MOUNT THE TEST CARTRIDGE AND 
LOAD THE HEADS ON THAT DRIVE, AS IN THE FOLLOWING EXAMPLE: 


MOUNT PACK ON DRIVE A2 AND LOAD. 
TYPE <CR> WHEN DRIVE READY. 


THE OPERATOR Cea THIS TASK AND TYPES <CR> WHEN THE DRIVE IS READY. 
THE PROGRAM PERFORMS PASS 1 FUNCTIONS ON THIS DRIVE (SEE SECTION 9.1) 


AND THEN INSTRUCTS THE OPERATOR TC UNLOAD THE DRIVE AND REMOVE THE PACK 


AS FOLLOWS: 


UNLOAD DRIVE A2 AND REMOVE PACK. 
TYPE <CR> WHEN DONE. 


THE OPERATOR PERFORMS THESE FUNCTIONS AND TYPES <CR> AFTER THE PACK 
HAS BEEN REMOVED. 


IN THE SAME MANNER, THE PROGRAM INSTRUCTS THE OPERATOR IN THE MOVEMENT 
OF THE PACK THROUGHOUT THE REST OF THE DRIVES ON THE CURRENT 
SUBSYSTEM, WHEN THIS HAS BEEN COMPLETED, THE FROGRAM DOES ONE OF 
THREE THINGS: (1) ie THERE IS ONLY ONE SUBSYSTEM (FROM ADR 200 
START) THE PROGRAM BEGINS PASS of (SEE SECTION 8.5). (2) IF THERE 
IS ANOTHER SUBSYSTEM, THE PROGRAM DIRECTS THE OPERATOR TO PERFORM 
PASS 1 ON THE NEXT SUBSYS AS FOLLOWS: 


** STARTING PASS 1 ON SUBSYS B 
(3) IF THERE ARE NO MORE DRIVES TO TEST IN PASS 1 ON ANY SUBSYS, THE 
PROGRAM DIRECTS THE OPERATOR TO BEGIN PASS 2 ON THE FIRST SUBSYS (SEE 
SECT. 8.5) AS FOLLOWS: 


** STARTING PASS 2 ON SUBSYS A 


ee te “ —- 


SEQ 001° 
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SEQ 001, 
457 
458 NOTE: THAT SUB=SYSTEM ‘A* IS ALWAYS THE FIRST SUB-SYSTEM TO BE TESTED 
= REGARDLESS OF HOW MANY SUB=SYSTEMS ARE TO BE TESTED. 
461 
462 
re 8.5 PASS 2 DIALOGUE 
465 THE OPERATOR RETURNS TO THE FIRST SUBSYSTEM TO PERFORM PASS 2 EITHER 
466 THROUGH THE DIALOGUE OF THE ADR 200 START, OR AFTER THE SELECTION OF 
467 PARAMETERS AND DRIVES HAS BEEN COMPLETED IN ACCORDANCE WITH THE 
408 DIALOGUE OF THE ADR 210 START (SEE SECTION 8.3). IN EITHER CASE, THE 
Ps PROGRAM INDICATES THE START OF PASS 2 BY TYPING: 
pra ** STARTING PASS 2 ON SUBSYS A 
473 THE PROGRAM THEN DIRECTS THE OPERATOR IN THE UNLOADING, PACK MOVEMENT, 
474 AND LOADING OF ALL DRIVES ON {HE +f rn IN THE SAME MANNER 
i AS DESCRIBED FOR PASS 1 (SEE SECTION 8.4 
477 HOWEVER, AFTER PASS s iy (SEE SECTION 9.2) IS COMPLETED ON A 
478 GIVEN ORIVE, THE ENTIRE TEST RESULTS FOR THAT DRIVE ARE TYPED. THE 
479 DETAILS OF THIS PRINTOUT ARE DESCRIBED IN SECTION 10, AFTER THE 
om DETAILS OF THE TESTING ARE DESCRIBED. 
482 WHEN PASS 2 HAS BEEN COMPLETED FOR one DRIVES ON THE FIRST SUBSYSTEM, 
483 THE PROGRAM DOES ONE OF TWO THINGS: (1) IF THERE IS ONLY ONE 
484 SUBSYSTEM (FROM ADR 200 START) OR IF ALL DRIVES ON ALL SUBSYSTEMS HAVE 
485 BEEN TESTED IN PASS 2 (FROM ADR 210 START), a ENTIRE TESTING AND 
rt 5, REPORTING HAVE BEEN COMPLETED, AND THE PROGRAM TYPES: 
488 TEST COMPLETE 
489 RHRKKAKKKKKEKKKER 
490 
491 (2) IF THERE IS ANOTHER SUBSYSTEM, HOWEVER, THE PROGRAM DIRECTS THE 
re OPERATOR TO PERFORM PASS 2 ON THE NEXT SUBSYSTEM AS FOLLOWS: 
ri: ** STARTING PASS 2 ON SUBSYS B 
496 
497 
r+ 9.0 DESCRIPTION OF TESTS 
500 THE MAIN pe cao BLOCKS OF CODE IN THE PROGRAM ARE £ .GNED TEST 
501 NUMBERS, FOR THE PURPOSE OF IDENTIFICATION IN ERROR PRINTOUTS. TEST 0 
562 REFERS TO THE OPERATOR INPUT DIALOGUE ROUTINES DESCRIBED IN SECTIONS 
503 8.1-8.3. THE OTHER TEST NUMBERS ARE ASSIGNED BELOW, IN THE 
ope ‘ DESCRIPTION OF PASS 1 AND PASS 2 TESTING. 
506 IN THE FOLLOWING SECTIONS, TABLES A-G ARE REFERRED TO. £IN_ THESE 
507 TABLES, DRIVES ARE NAMED FROM 0-7 FOR ILLUSTRATIVE PURPOSES, ALTHOUGH 
oe THE DRIVES ARE NAMED THE FOLLOWING WAY IN AN ACTUAL SITUATION: 
a4 AQ,A1, Ad,...B0,B1,B2,...C0,C1,C2,... ETC. (SEE SECTION 8.0). 
512 
513 
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9.1 DESCRIPTION OF PASS 1 TESTS 


4 
515 
516 IN PASS 1, THE BASIC READ/WRITE CAPABILITY OF EACH DRIVE IS 
517 DEMONSTRATED, AND COMPATIBILITY DATA PATTERNS ARE WRITTEN BY ALL 
aig DRIVES UPON THE SAME TEST CARTRIDGE. 


520 THE SEQUENCE OF OPERATIONS PERFORMED ON EACH DRIVE IS AS FOLLOWS: 

S22 1. TEST 1 - MOUNT ING OF TEST CARTRIDGE FOR PASS 1 = THE 
$23 OPERATOR MOUNTS THE PACK ON THIS DRIVE AND MANUALLY LOADS THE 
226 HEADS, AS DIRECTED BY THE PROGRAM (SEE SECTION 8.4). 

$26 2. TEST 2 = BASIC READ/WRITE DATA TEST - THE PROGRAM PERFORMS 
S27 A WRITE AND WRITE CHECK OPERATION USING A ‘WORST CASE’’ DATA 
$28 PATTERN, AT THE APPROPRIATE SECTOR FOR THIS DRIVE (SEE 
$29 TABLE A) ON ALL SURFACES. THE PURPOSE OF THIS OPERATION IS 
530 TO VERIFY THE BASIC READ/WRITE CAPABILITY OF THE DRIVE ON 
531 PASS 1. THE ENTIRE SECTOR IS WRITTEN WITH THE REPETITION OF 
232 THE DATA PATTERN SHOWN IN TABLE B. 

534 3. TEST 3 = THE PROGRAM WRITES ALL SECTORS FOR THIS 

535 DRIVE WITHIN THE CYLINDER BLOCKS SHOWN IN TABLE C ON ALL 
536 SURFACES USING A SINGLE REPEATED WORD OF THE PATTERN IN 
537 TABLE G. DRIVE O USES WORD 0, DRIVE 1 USES 

538 WORD 1, DRIVE 7 USES WORD 7, ETC. THUS, THE DATA 

539 FROM EACH DRIVE IS UNIQUE. TABLE C HAS BEEN DETERMINED AS 
260 FOLLOWS: 

542 IN EACH OF THE SEVEN WRITE CURRENT ZONES ON EACH SURFACE. 
543 SECTORS ARE WRITTEN WITHIN TWO DISTINCT CYLINDER BLOCKS. 

544 THE FIRST 16 CYLINDERS OF EACH WRITE CURRENT ZONE 

545 IS THE FIRST BLOCK USED FOR ,miTe TEST IN PASS 2. THE LAST 
546 16 CYLINDERS OF EACH CURRENT 

547 ZONE (EXCEPT THE INNERMOST ZONE) # £«'IS THE SECOND BLOCK 
548 USED FOR READ TEST IN PASS 2. 

549 WITKIN EACH CURRENT ZONE, THESE TWO BLOCKS ARE IDENTICALLY 

550 WRITTEN. HOWEVER, THE SECTORS DESIGNATED TO EACH DRIVE 

551 ARE ROTATED FROM ZONE TO ZONE SO THAT THE 

es DATA APPEARS AT VARIOUS ANGULAR POSITIONS ON THE PACK. 

554 WITHIN EACH CYLINDER BLOCK, UP TO 32 SECTORS ARE WRITTEN 
555 (DEPENDING ON THE NUMBER OF DRIVES BEING TESTED) ON EACH 
ans CYLINDER. 

558 THE BASIC LAYOUT OF A TYPICAL CYLINDER BLOCK IS SHOWN IN 
559 TABLE D, WHERE THE BLOCK SHOWN IS THE READ TEST BLOCK FOR 

560 ZONE 1, WHICH STARTS ON CYLINDER 112, AND HAS THE ROTATING 
561 STARTING SECTOR = SECTOR 0. EACH NUMBER INSIDE THE BLOCK IS 
562 THE NUMBER OF THE DRIVE WHICH WRITES THAT SECTOR. TABLE D 
565 SHOWS THE BLOCKS WRITTEN BY EACH OF 16 DRIVES. IF ANY OF THE 
564 DRIVES SHOWN ARE NOT PRESENT, HOWEVER, THE BLOCKS RESERVED 
= FOR THE MISSING DRIVES ARE SIMPLY NOT WRITTEN. 

567 THE ABOVE PATTERN OF SECTOR WRITES INSURES THAT DATA FROM 
568 | EACH DRIVE IS WRITTEN ON ADJACENT CYLINDERS TO DATA FROM 
569 EVERY OTHER DRIVE, IN BOTH DIRECTIONS. IN ADDITION, THE 
$70 ROTATION OF THE ABOVE SECTORS FROM CURRENT ZONE TO CURRENT 
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ZONE INSURES THAT WRITE TEST AND READ TEST ARE 
DONE AT SEVERAL DIFFERENT ANGULAR POSITIONS WITH RESPECT TO 
THE CARTRIDGE. 


4. TEST 4 = DISMOUNTING OF TEST had IN PASS 1 = THE 
OPERATOR UNLOADS THE DRIVE AND DISMOUNTS THE PACK, AS 
DIRECTED BY THE PROGRAM (SEE SECTION 8.47, TO PROCEED WITH 
THE ABOVE STEPS ON THE NEXT DRIVE. 


9.2 DESCRIPTION OF PASS 2 TESTS 


IN PASS 2,THE ABILITY OF EACH DRIVE TO COMPLETELY OVERWRITE DATA 
ies. By ALL OTHER ORIVES AND TO READ DATA WRITTEN BY ALL OTHER 


THE SEQUENCE OF OPERATIONS PERFORMED BY EACH DRIVE IS AS FOLLOWS: 


1. TEST 5 = MOUNTING OF TEST CARTRIDGE FOR PASS 2 = THE 
OPERATOR MOUNTS THE PACK ON THIS DRIVE AND MANUALLY LOADS THE 
HEADS, AS DIRECTED BY THE PROGRAM (SEE SECTION 8.5). 


2. TEST 6 - WRITE TEST = NEXT, THE PROGRAM PROCEEDS TO 
TEST THIS DRIVES OVERWRITE CAPABILITY. FIRST, THE 
APPROPRIATE CYLINDERS IN TABLE E FOR THIS ODRIVE ARE 
OVERWRITTEN, ON EACH SURFACE. THE DATA USED IS A REPETITION 
OF A SINGLE WORD OF THE PATTERN IN TABLE G, DRIVE O 
USES WORD 0, DRIVE 1 USES WORD 1, DRIVE 7 
USES WORD 7, ETC. 


THEN, EACH CYLINDER OVERWRITTEN IS READ BACK BY THIS DRIVE 
IN EACH OFFSET ge Ta (+ AND -). THE PROGRAM SCANS FOR 
READ ERRORS (DCK,HCRC.ETC.) DURING THIS READ, AND IF ONE 
OCCURS, THE PROGRAM DETERMINES WHICH DRIVE’S DATA HAS NOT 
BEEN CORRECTLY OVERWRITTEN, AND A SCORE FOR THAT DRIVE IS 
DECREMENTED. THEN, THE TRANSFER IS CONTINUED AT THE NEXT 
a” he WITH THAT OFF SET VALUE. THE READS ARE DONE WITH ALL 


OF RWRIT 

DRIVES ARE CONVERTED AND STORED, FOR PRINTING AT THE END OF 
PASS 2 (AS DESCRIBED IN SECTION 10.2). EACH SCORE 
PROPORTIONAL TO THE OFFSET IN A GIVEN DIRECTION BY THE CURRENT 


DRIVE WHILE 

SUCCESSFULLY READING THE DATA IT WROTE OVER ONE OF THE OTHER 
DRIVE*S DATA. _ THUS, THE oS re REVEALS WHICH DRIVES ARE 
INVOLVED, IN A SITUATION IN WHICH DRIVE CANNOT OVERWRITE 
ONE OR SEVERAL OTHER DRIVE'S DATA. 


3. TEST 7 = DRIVE SELF-TEST = THE PROGRAM NEXT EVALUATES THE 
DRIVE*’S ABILITY TO WRITE AND READ ITS OWN DATA, AT VARIOUS 
POSITIONS ON THE PACK. FIRST, ALL 7 ge OF THE 
APPROPRIATE CYLINDERS SHOWN IN _ TABLE F FOR THIS DRIVE ARE 
WRITTEN WITH THE DATA PATTERN SHOWN IN TABLE B, FOR ALL 
SURFACES. THEN, THE SECTORS ARE READ WITH OFFSET 


SEQ OO’ 
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in EACH DIRECTION. 
OGRAM SCANS FOR READ ERRORS DURING EACH READ, AND iT 
COMPUTES A SCORE WHICH IS PROPORTIONAL TO THE FAILING OFFSET. 


CYLINDER BLOCK ARE AVERAGED, TO COME UP WITH A_ DRIVE 
SELF-TEST SCORE FOR EACH SURFACE FOR EACH OFFSET DIRECTION. 
THIS SCORE IS SAVED FOR LATER USE, TO BECOME THE STANDARD FOR 
THE READS WHICH ARE TO FOLLOW. 


4. TES’ 10(OCTAL) - Eu DATA READ TEST = HAVING ESTABLISHED 
A_ SELF-TEST SCORE FOR THIS DRIVE, PROGRAM PROCEEDS TO 
PERFORM THE COMPATIBILITY DATA READS OF THE PATTERNS WRITTEN 
BY ALL_ THE DRIVES IN EACH CYLINDER BLOCK (ON EACH wo We 
EACH COMPATIBILITY CYLINDER BLOCK SHOWN IN TABLE C IS READ, 

CYLINDER AT A TIME IN EACH OFFSET DIRECTION. 


THE PROGRAM SCANS 

FOR READ ERRORS DURING EACH READ AND IF ONE OCCURS, THE 
PROGRAM DETERMINES pe Se Bg ® S DATA WAS BEING READ AT THAT 
INSTANT AND A SCORE FOR THAT DRIVE IS DECREMENTED. THEN, THE 
TRANSFER IS CONTINUED AT THE NEXT SECTOR, WITH THAT OFFSET 
; THE READS ARE DONE WITH OFFSETS IN EACH DIRECTION. 
AND A SEPARATE SCORE FOR EACH DRIVE IS KEPT, WHILE 

THE CURRENT DRIVE IS READING THE COMPATIBILITY DATA. THEN, 
EACH SCORE IS APPROPRIATELY oe TO REFLECT THE SELF-TEST 
SCORE FOR THE CURRENT DRIVE THAT PARTICULAR CYLINDER 
BLOCK. THE SCORES " AVERAGED OVER ALL CYLINDER 
BLOCKS. EACH SCORE IS PROPORTIONAL [TO THE CAPABILITY OF THE 
CURRENT DRIVE TO SUCCESSFULLY READ THE DATA WRITTEN BY ONE OF 
THE OTHER DRIVES, AND SCORES C 


T 
PRINTOUT REVEALS WHICH DRIVES ARE INVOLVED IN A SITUATION IN 
WHICH A_ PARTICULAR DRIVE HAS DIFFICULTY IN READING THE DATA 
OF ONE OR SEVERAL OTHER DRIVES. 


5. TEST 11(OCTAL) - TYPE TEST SCORES AND DISMOUNT PACK IN PASS 2 - 
THE OVERWRITE AND COMPATIBILITY DATA READ TEST SCORES FOR 
THIS DRIVE ARE CONVERTED AND TYPED. THEN, THE OPERATOR 
UNLOADS [HE DRIVE AND DISMOUNTS THE PACK AS DIRECTED BY THE 
ae gas AE al li 8.5), TO PROCEED WITH THE ABOVE STEPS ON 










10.0 PRINTOUT OF TEST RESULTS 


THE TEST RESULTS ARE PRINTED AT THE END OF PASS 2 ON EACH DRIVE BEING 
TESTED. THESE RESULTS PERTAIN TO THE OVERWRITE TEST AND THE 
COMPATIBILITY DATA READ TEST. 


10.1 TEST RESULTS 


THE RESULTS OF BOTH THE OVERWRITE AND OF THE COMPATIBILITY DATA READ 
a aricane’ REGARD OF DEGREE OF SUCCESS. IF THE TEST IS SUCCESSFUL. 


SEQ 001 


Q 0005 


See a 
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** ALL DRIVES ARE COMPATIBLE ** 


IS PRINTED. IF THE TEST IS FAILURE, THE TEST RESULTS 
ARE TABULAR IN FORM AS SHOWN. 


IN THE FOLLOWING wie y THERE ARE 2 SYSTEMS, AND THE DRIVES BEING 
rade ee tiie A0,A1,A2,B80, AND 85. THE TEST RESULTS FOR DRIVE Al ARE 


SCORES FOR DRIVE Al: 


TRACK DRIVE OVRWRT OVRWRT READ READ 
NO. READ OF ST- OF ST+ OF ST- OF ST+ 
0 A2 * 0 * 0 


THE ABOVE EXAMPLE REVEALS A POSSIBLE COMPATIBILITY PROBLEM EXISTS 
BETWEEN DRIVES Al AND A2. NOTICE pond ON TRACK 0, THAT THE OVERWRITE 
SCORES WERE UNACCEPTABLY LOW (0), AND THE PROGRAM NOTED THESE BAD SCORES 
WITH AN ASTERISK (*). ALL ACCEPTABLE TEST RESULTS ARE NOT PRINTED. 


11.0 ERROR REPORTING 
11.1 COMMON ERRORS 
THE FOLLOWING IS A LIST OF COMMON ERROR MESSAGES WHICH ACCOMPANY ERROR 
ottwemedun RMO5/3/2 DRIVE COMPATIBILITY PROGRAM. THE ERRORS ARE 
ADDRESS PLUG CHANGE BIT SET 
RH DIDN'T RESPOND TO ADDRESSING 
UNCORRECTABLE MASSBUS PARITY ERROR 
FATAL MASSBUS PARITY ERROR 
PERSISTENT DEVICE UNSAFE 
OPERATION NOT COMPLETED WITHIN TIME LIMIT 
DRIVE WENT OFFLINE 
NO RESPONSE TO PORT REQUEST 
HEADER CRC ERROR 
DATA CHECK ‘DCK* ERROR 
WRITE CHECK ERROR ~ DATA CHECK ‘DCK* SET 
WRITE CHCKE ERROR =~ DATA CHECK “DCK* NOT SET 
HEADER READ ERROR - 'FMT" BIT DROPPED 


SEQ 001 


Q 0004 
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HEADER READ ERROR = HEADER COMPARE ‘HCE’ ERROR 
FORMAT ERROR ‘FER‘ 

HEADER COMPARE ‘HCE’ ERROR 

MISCELLANEOUS DRIVE ERROR 

OPERATION INCOMPLETE ‘OPI’ ERROR 

DRIVE TIMING ‘'DTE* ERROR 

PARITY ‘PAR ERROR AFTER OPERATION STARTED 

WRITE CLOCK FAILURE ‘WCF’ ERROR 

INVALID ADDRESS ‘IAE*’ ERROR 

WRITE LOCK ‘WLE* ERROR 

DATA CHECK "DCK* SET DURING WRITE CHECK COMMAND 
RH OR UNIBUS TRANSFER ERROR 

BUS ADDRESS OR WORD COUNT INCORRECT 

DATA COMPARE ERRORS ~- NO OTHER ERROR(S) DETECTED 
CAN"T MATCH DATA READ WITH A PATTERN 

ERROR BIT(S) SET, BUT NO ERROR SIGNALED BY THE RH 
ECC LOGIC FAILURE - POSITION REGISTER VALUE NOT VALID 
BUS ADDRESS AND WORD COUNT NOT CONSISTENT 

SEEK INCOMPLETE ‘SKI* ERROR 

PROGRAM DETECTED POSITIONING ERROR 

DRIVE UNSAFE ERROR 


11.2 ERROR HANDLING 


ERRORS REPORTED BY THE PROGRAM CONSIST OF COMMON FAILURES RESULTING 
FROM ATTEMPTED SUBSYSTEM FUNCTIONS, AS WELL AS CERTAIN ERRORS UNIQUE 
TO PARTICULAR TESTS. EACH ERROR PRINTOUT CONSISTS OF AN _ ERROR 
DESCRIPTION AND TEST NUMBER, POSSIBLY FOLLOWED BY HEADER LINES, COLUMN 
HEADINGS, AND COLUMNS OF REGISTER CONTENTS IN OCTAL. AS MUCH 
MEANINGFUL REGISTER DATA AS POSSIBLE (FOR EXAMPLE, RH/RM ++. 'STERS) 
ARE REPORTED IN A GIVEN ERROR. OTHER ERROR REPORTS MAY CONSIS: OF A 
SINGLE DESCRIPTIVE LINE. 


11.3 ERROR PRINTOUT EXAMPLE 


SEQ 001 
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| SEQ 0018 

| 799 

| 800 RH OR UNIBUS TRANSFER ERROR 

| 801 DRIVE  RMCS C RMBA  —s RMDA 
802 000001 144250 174400 0055030 000431 

| 805 RMCS2. = RMDS RMER1  RMAS RMDB 

| 806 000100 010700 000000 000000 000000 
808 
809 RMMR1  RMDT RMOF RMD C RMMR2 
810 000050 024024 010000 000716 011777 
812 
813 RMER2 RMEC1 RMEC2 
81% 000000 004066 000000 
816 
817 
319 12.0 TABLE DESCRIPTIONS 
820 12.1 TABLE A - BASIC READ/WRITE TEST SECTORS 
822 ADDRESS OF SECTOR ON EACH SURFACE 
824 
825 DRIVE NO. CYLINDER SECTORS 
827 0 620 0 
828 1 620 1 
829 2 620 2 
83U 3 620 3 
831 4 620 4 
832 5 620 5 
833 6 620 
834 ? 620 ? 
835 8 620 8 
836 9 620 9 
837 10 620 10 
838 11 620 11 
839 12 620 12 
840 13 620 13 
841 14 620 14 
842 15 620 15 
843 
B45 
846 12.2 TABLE B - WORST CASE DATA PATTERN (REPEATS EVERY 16 WORDS) 

a8 WORD NO. DATA (OCTAL) 
850 0 066666 
851 1 155554 
852 2 133331 
853 3 066663 
854 4 155546 
855 5 133315 
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12.6 TABLE F = SELF-TEST CYLINDERS 
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11 $8 °129°See 1$ 209 668,796 
1¢ 29,157,285,413,541 069.797 
1 30-1 26-$30-618-36 .670,798 
14 31,159,287,415,543,671,799 
15 32,160, 288,416, 544,672,800 
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13.0 RM SOFTWARE DRIVER DOCUMENT 


13.1 


THIS DOCUMENT IS THE USER'S GUIDE FOR THE RM DRIVER. 
TO INITIALIZE THE DRIVER: 

JSR PC ,RMINIT 

RETURN 


UPON RETURN YOU MUST EXAMINE THE ‘DRVSTA’’ TABLE TO DETERMINE 
THE age hat: THAT ARE ONLINE FOR TESTING. THE ‘DRVSTA* TABLE IS 


EIGHT BYTES; ONE BYTE PER DRIVE. THE STATE OF EACH DRIVE WILL 
BE INDICATED AS FOLLOWS: 
DRVSTA DRIVE STATE 
>0 ONL INE 
=0 Ys tart DRIVE 
1S NOT AN RMOS/3/2. 


NONEXISTENT DRIVE 
<0 UNSAFE 


THE DRIVE TYPE IS DEFINED IN AN 8 BYTE LONG TABLE TAGGED "DRVTYP*. 


THE TABLE CONTAINS ONE BYTE FOR EACH DRIVE AND IS INDEXED BY THE 
DRIVE NUMBER. ENTRIES ARE ENCODED AS FOLLOWS: 


SEQ 0021 


— —_ - 
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13.2 


13.3 


DRVTYP CONDITION 
Q NONEXISTENT DRIVE 
i RMO 
7 RMO5 

-1 NOT AN RMO5/3/2 


THE "RMINIT" ROUTINE WILL DO A READIN PRESET AND WILL SET FMT16. 


AFTER THE DRIVER HAS BEEN INITIALIZED, IT IS CALLED USING THE 
FOLLOWING SEQUENCE. 


CALL: 
JSR RO,RMOS ZMAKE THE CALL 
PNTDPB ;ADDRESS OF DPB 
RETURN1 7RETURN IF QUEUE IS FULL 
RE TURN2 ;RETURN IF REQUEST & IN 
: QUEUE OR THERE IS AN 
ZERROR CONDITI 
*DPB (DATA PARAMETER BLOCK) 
PNTDPB: .BYTE 0 7(0) DRIVE NUMBER 
-BYTE O 7(1) OFFSET VALUE OR FMT16, ECT. AND HCI 
BYTE O 3(2) COMMAND 
BYTE O 3(3) PSEL AND A17 AND A16 
-WORD 0 :(4) WORD COUNT (MUST BE NEG.) 
, D.6= («OO ;(6) BUFFER ADDRESS 
sREGISTER TABLE POINTER 
BYTE O :(10) SECTOR ADDRESS OR 
:FIRST REG. INDEX 
-BYTE 0 7411) TRACK ADDRESS OR 
;LAST REG. INDEX 
-WORD 0 3(12) CYLINDER ADDRESS 
«WORD 0Q :(14) ERROR TABLE POINTER 
. :POINTS TO THE FIRST OF TWENTY 
ZLOCATIONS OF WHERE THE DRIVER 
71S TO STORE THE RH/RM 
sREGISTERS ON AN ERROR. IF LEFT 
;ZERO REGISTERS ARE NOT SAVED. 
.WORD 0 AY, STATUS/ERROR INDICATOR 


‘81 15=1 =>ERROR OCCURRED 
*BIT14-B1T09 AND BIT06-B1T03 
[INDICATE TYPE OF ERROR 


THE DRIVER PROVIDES A SOFTWARE TIMEOUT CAPABILITY. 
TO UTILIZE THIS CAPABILITY YOU MUST SUPPLY THE "RM TIMER’’ ROUTINE 
WITH THE ELAPSED TIME IN THE FOLLOWING MANNER: 


MOV #16.,-(SP) 316 MILLISECONDS BETWEEN 
sCLOCK TICKS 
JSR PC, RMTMR ;CALL THE TIMER ROUTINE 


SEQ 0022 
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| 
0010 | SEQ 0023 
| 1084 IT SHOULD BE NOTED THAT YOU MUST PROVIDE THE CODE TO DRIVE THE 
| 1085 CLOCK. AND THE ELAPSED TIME MUST BE IN MILLISECONDS. 
| 1086 THE DRIVER WILL SET THE TIMEOUT TO 1 SECOND FOR ALL POSITIONING 
| 1087 AND DATA TRANSFER OPERATIONS AND WILL SET THE TIMOUT TO 30 
1088 SECONDS FOR ERROR RECOVERY OPERATIONS. 
1090 
1091 13.4 EXAMPLE = WRITE 1000. WORDS 
1093 1$: JSR RO,RMOS :CALL THE DRIVER 
1094 WRTDPB “DPB ADDRESS 
1095 BR 1$ “WAIT FOR QUEUE IF FULL 
1096 2$: TST WRTDPB+16 “WAIT FOR COMMAND TO COMPLETE 
1097 BEQ 2$ 
1098 BMI ERROR :ERROR OCCURRED 
1099 ; 
1100 
1101 
1102 
1103 WRTDPB: .BYTE 5 :DRIVE #5 
1104 . BYTE O 5 
1105 ‘BYTE 161 “WRITE COMMAND 
1106 BYTE O : 
1107 “WORD 1000. :WORD COUNT 
1108 “WORD  WRTBUF [BUFFER ADDRESS 
1109 “BYTE 3 SECTOR 
1110 “BYTE 5 > TRACK 
1111 “WORD 400 = CYLINDER 
1112 “WORD  ERRTAS [ERROR TABLE 
1113 “WORD 0 [STATUS/ERROR INDICATOR 
1115 ALTERNATE DPB SETUP 
1117 WRTDPB: .WORD 5 :THIS SETUP ACHIEVED 
1118 “WORD WRITE “EVERYTHING THE 
1119 “WORD -1000. “ABOVE TABLE DID. BUT 
1120 WORD  WRTBUF ZIN A CLEANER FORMAT 
1121 “BYTE 3,5 
1122 “WORD  400,ERRTBS,O 
112% 13.5 RH/RM REGISTERS 
1126 MNEMONIC INDEX 
1127 aera  j(§§ 
1128 
1129 RMCS1 0 
1130 RMWIC 2 
1131 RMBA 4 
1132 A 6 
1133 RMCS2 10 
1134 S 12 
1135 RMER1 14 
1136 RMAS 16 
1137 RMLA 20 
1138 RMDB 22 
1139 RMMR 1 24 
1140 RMD T 
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| 0011 | SEQ 0024. 
| 1141 RMSN 30 
| 1142 RMOF 33 
| 1143 RMDC 34 
| 1144 RMHR 36 
| 1145 RMMR 2 40 
1146 RMER2 42 
| 1147 RME C1 44 
1148 RME C2 46 
1150 13.6 COMMANDS PERFORMED BY THE DRIVER 
! 32 COMMAND CODE COMMAND TYPE 
1154 
1155 SEEK 105 p 
1156 RECALIRATE 107 pP 
1157 DRIVE CLEAR 111 N 
1158 RELEASE 113 N 
1159 OFFSET 115 p 
1160 RETURN TO CENTER 117 p 
1161 READIN PRESET 121 N 
1162 PACK ACKNOWLEDGE 123 N 
1163 SEARCH 131 p 
1164 GET REGISTER(S) 141 S 
1165 SET FORMAT 143 S 
1166 SELECT DRIVE 145 S 
1167 WRITE CHECK DATA 151 D 
1168 WRITE CHK HEADER & DATA 153 D 
1169 WRITE DATA 161 D 
1170 WRITE HEADER & DATA 163 D 
1171 READ DATA 171 D 
1172 READ HEADER & DATA 173 D 
1173 
1174 
1175 N = HOUSEKEEPING 
1176 P = POSITIONING 
1177 D = DATA TRANSFER 
1178 S = SPECIAL PROVIDED BY THE DRIVER ' 
by 13.7 DPB STATUS/ERROR INDICATOR WORD 
1182 THIS INDICATOR WILL INFORM THE USER OF THE RESULTS OF THE REQUEST. 
1183 THIS 1S ACCOMPLISHED BY SETTING VARIES BITS OF THE INDICATOR TO 
1185 
1186 BIT NO. MEANING IF ON A ‘1°’ 
Se oe ee eg Ee oe On” Silene el 
1188 
1189 15 ERROR OCCURRED 
1190 DONE (BITO7=0);: BITS 14-9 SPECIFIES TYPE 
1191 DONE (BITO7=1): BITS 6-3 SPECIFIES TYPE 
1193 14(1) USER MADE A REQUEST FOR A FUNCTION TO BE 
119% PERFORMED ON AN OFFLINE OR UNSAFE DRIVE 
1196 13(1) USER MADE A REQUEST FOR A FUNCTION 
1197 TO BE PERFORMED ON A DRIVE THAT HAS AN 


1 0012 


— a ee —a 
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1221 
1222 


13.8 


FRROR CALLS 
THERE ARE A 


12(2) 
11(2) 
10(2) (4) 


9(3) (4) 
8(4) 

7 

6(2) 
5(2) 


4(2) 
3(2) 


-~ 

™m 

a 
" 


(3) 


(4) = 
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UNLOAD REQUEST IN QUEUE. 

PERSISTENT UNSAFE CONDITION EXIST. 
UNCORRECTABLE PARITY ERROR OCCURRED 

FATAL PARITY ERROR. A MASSBUS CLEAR P- 
ALL. DRVACT' SET TO THE IDLE STATE, 
SOFTWARE TIMEOUT OCCURRED ON THIS DRIVE 
SOFTWARE TIMEOUT OCCURRED ON ANOTHER DRIVE 
DONE 

ERROR OCCURRED DURING AN I/O OPERATION 


ERROR OCCURRED DURING AN OPERATION 
OTHER THAN 1/0. 


CORRECTABLE UNSAFE CONDITION OCCURRED 


DRIVE ERROR OCCURRED THAT CAUSED AN 
AUTOMATIC *RECALIBRATE’’ SEQUENCE 


PORT REQUEST TIMEOUT. THE DRIVER — 
THE DRIVE BUT THE OPPOSITE PORT DID NO 
RELEASE THE DRIVE WITHIN 15. SECONDS. 


NON-EXISTENT DRIVE REQUESTED. USER MADE 
A REQUEST FOR A NON-EXISTENT DRIVE. 





REQUEST WASN'T PUT IN QUEUE. (RH/RM 
REGISTERS WERE NOT SAVED) 


REQUEST QUEUE HAS BEEN EMPTIED. THE DRIVER 
ISSUED A "DRIVE CLEAR’ TO THE DRIVE. 

NOTE: ALL RH/RM REGISTERS ARE SAVED 

AS PER DPB+14 BEFORE THE “DRIVE CLEAR’. 


REQUEST QUEUE HAS BEEN EMPTIED. THE 
DRIVER ISSUED A MASSBUS INIT. ALL 
RH/RM REGISTERS FOR THE DRIVE WERE 
SAVED AS PER DPB+14 BEFORE THE INIT. 


A *'RECALIBRATE’* SHOULD BE ISSUED 
BEFORE ANY OTHER COMMAND. 


MADE BY THE DRIVER. 
FEW ERRORS THAT CAN OCCUR THAT CAN NOT BE INDICATED IN A DPB. 


SEQ 0025 


' 0013 


? 
| 


N 2 
CZRMTBO RMOS/3/2 DR CMPT TST MACRO V04.00 4=-APR=-81 18:12:15 PAGE 3-22 


WHEN THIS TYPE OF ERROR IS DETECTED BY THE DRIVER IT WILL MAKE 
AN ERROR CALL OF THE FORM ‘'ERROR N’', WHERE ' IS THE ERROR 
NUMBER AND THE ERROR WILL BE AN EMT INSTRUCTION. 


N TYPE DATA AVAILABLE 
1 RH70_ INTERRUPT *R4= RMCS1°S ADDRESS 
_ OCCURRED (RHAS=0) 
2 UNEXPECTED ATTENTION Ri= DRIVE NUMBER 
OCCURRED R3= ATA BIT 
*R4= RMCS1'S ADDRESS 
R5= (RMAS) 
RRS 
RMERRS+2=RMER‘ 
RMERRS+4=RMER2 
RMERRS+6=RMMR2 
3 MASSBUS PARITY RD.ADR= ADDRESS OF REG. READ 
ERROR (MCPE=1) RD.WRD= WORD READ 
4 MASSBUS PARITY WRT.AD= ADDRESS OF REG. WRITTEN 
ERROR (PAR=1) WRT .WD= WORD WRITTEN 
RD.WRD= WORD READ BACK 
5 ADDRESS PLUG CHANGE R1= DRIVE NUMBER 
BIT SET (*OPE* ERROR) R3= ATA BIT 
*R4= RMCS1°S ADDRESS 
R5= ( ) 
RMERRS =RMDS 
RMERRS+2=RMERi 
RMERRS+4=RMER2 
RMERRS +6=RMMAR2 


* THIS IS THE ACTUAL UNIBUS ADDRESS (176700) 


SEQ 0026 


0014 


f 
i 
' 
| 
' 


' 
53 
54 


55 


56 
58 


CLC LLL LES ee a ee — ae 
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> *LAST REVISIGN 04-APR-81 


-TITLE CZRMTBO <li DR CMPT TST 
>*COPYRIGHT (C) 1981 

:*DIGITAL EQUIPMENT CORPORATION 

s *COLORADO SPGS., CO. 80919 


: sPROGRAM BY MIKE LEAVITT 


THIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC SYSMAC 
3 SPACKAGE (MAINDEC=11=DZQAC-C5), 18-MAR-81 


:SBTTL OPERATIONAL SWITCH SETTINGS 
SWITCH USE 


15 HALT ON ERROR 
4 LOOP ON TEST 
3 INHIBIT ERROR TYPEOUTS 
2 INHIBIT TRACE TRAP 
1 INHIBIT ITERATIONS 
0 BELL ON ERROR 
9 LOOP ON ERROR 
8 LOOP ON TEST IN SWR<7:0> 
7 TYPE THE BAD SECTOR FILE 


.SBTTL BASIC DEFINITIONS 
:* INITIAL ADDRESS OF THE STACK POINTER *** 1100 #«* 


. 
ea epenpepeneaeneneeen 


STACK = 
ERROR = EMT ;;BASIC DEFINITION OF ERROR CALL | 
SCOPE = JOT :sBASIC DEFINITION OF SCOPE CALL 


acai: vias DEF INI TIONS 
17 ::CODE FOR HORIZONTAL TAB 


+ = 12 ;:CODE FOR LINE FEED 

CR = 45 :;: CODE FOR CARRIAGE RETURN 

CRLF = 200 3: CODE FOR CARRIAGE RETURN-LINE FEED 
< = 177776 3; PROCESSOR STATUS WORD 

STKLMT = 177776 >; STACK LIMIT REGISTER 

PIRQ = 177772 ; s PROGRAM INTERRUPT REQUEST REGISTER 
DSWR = 177570 ;HARDWARE SWITCH REGISTER 

DDISP = 177570 : : HARDWARE DISPLAY REGISTER 
;*GENERAL PURPOSE REGISTER DEFINITIONS 

RO = %0 7; GENERAL REGISTER 

RY = %7 3: GENERAL REGISTER 

R2 = 22 33 RAL REGISTER 

R3 = 35 3: GENERAL REGISTER 

R4 = %4 ;; GENERAL REGISTER 

R5 = $5 3s RAL REGISTER 

R6 = £6 3; ;GENERAL REGISTER 

R7 = 37 3; GENERAL REGISTER 

SP = %6 7: STACK POINTER 

PC = if ;;PROGRAM COUNTER 


SEQ 0027 


| 
| 
) 
| 


CZ7RMTBO RMO5S/3/2 DR CMPT TST 
BASIC DEFINITIONS 


ener LEVEL DEFINITIONS 
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RO 0 sz;PRIORITY LEVEL 
PR1 = 40 PRIORITY LEVEL 
oat = 100 ; PRIORITY LEVEL 
PR = 140 7zPRIORITY LEVEL 
PR4 = 200 7;PRIORITY LEVEL 
PR5 = 240 i IORITY LEVEL 
PR6 = 300 IORITY LEVEL 
PR7 = 340 : SPRIORITY LEVEL 
:*'“SWITCH REGISTER’’ SWITCH DEFINITIONS 
Sw15 = 100000 
SW14 = 40000 
Sw13 = 20000 
SWwi2 = 10000 
SwW11 = 4000 
Sw10 = 2000 
Sw09 = 1000 
Sw08 = 400 
Sw07 = 200 
Sw06 = 100 
Sw05 = 40 
Sw04 = 20 
sw03 = 10 
Sw02 = 4 
Sw01 =2 
Sw0c = 7 
Sw9=Sw09 
SW8=Sw08 
SW7=SwW07 

=SW06 
Sw5=Sw05 
=Sw04 
SWw3=Sw03 
=Sw02 
SwW1=Sw01 
SwO0=SW00 

;*DATA BIT DEFINITIONS (BITOO TO BIT15) 
BIT1S = 100000 
BIT14 = 40000 
BIT13 = 20000 
BIT12 = 10000 
BIT11 = 4000 
BIT10 = 2000 
BITO9 = 1000 
BITO8 = 400 
BITO7 = 200 
BIT06 = 100 
BITOS = 40 

IT = 20 
BIT03 = 10 
BITO2 = 4 
BITO1 =2 
BITOO = 1 
BIT9=BITO9 
B11T8=B1T08 





NOAWUEWN © 


SEQ 0025 


0016 


a oe oe i 


' CZRMTBO RMOS/3/2 DR CMPT TST 
| BASIC DEFINITIONS 


000200 
| 000100 
| 000040 
| 000020 
| 000010 
| 000004 
| 000002 
| 000001 
i 
000010 
000014 
000014 
000014 
000020 
000024 
000030 
000034 
000060 
000064 
000240 
59 
60 
61 
62 
63 
64 000016 
65 000020 
66 000022 
67 000024 
6% 000026 
69 000030 
70 000032 
71 000034 
72 600036 
73 000040 
74 000042 
75 000044 
76 000046 
77 000050 
78 000052 
79 000054 
80 000056 
81 000060 
82 000062 
83 000064 
84 000066 
85 
86 
87 
88 000101 
89 000105 
90 000107 
91 000111 
92 000113 
93 000115 


ee 
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BI 
BI 10=81 TOO 


; *BASIC A all TRAP VECTOR _ADDRESSES 


OUT AND OTHER ERRORS 


VE = 
RESVEC = 10 :ZRESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC = 14 is ‘BIT 
RTVEC = 14 TRACE TRAP 
BPTVEC = 14 : BREAKPOINT TRAP (BPT) 
ae ¥ = $e at TRAP (IOT) **SCOPE**« 
EMTVEC = $5 +s EMULATOR TRAP (EMT) **ERROR*«*« 
TRAPVEC = 34 +s ote tes TRAP 
TKVEC = 60 Y KEYBOARD VECTOR 
PVEC = 64 tty PRINTER VECTOR 
PIRQVEC = 240 ;;PROGRAM INTERRUPT REQUEST VECTOR 


-SBTTL RM REGISTERS 


s INDEX OF STATUS AND REGISTER WORDS RELATIVE TO FMTDPB 


STATUS = 16 
SRMCS1 = es ss 
SRMWC 38=ss =-:« SRRMCS1+ 
SRMBA = $RMWC+2 
SRMDA = SRMBA+2 
SRMCS2 = SRMDA+2 
SRMDS = SRMCS2+2 
SRMER1 = S$RMDS+2 
SRMAS = SRMER1+2 
SRMLA = S$RMAS+2 
SRMDB = SRMLA+2 
SRMAR1 = SRMDB+2 
SRMDT = $RMMR1+2 
SRMSN = SRMDT+2 
SRMOF = SRMSN+2 
SRMDC = SRMOF+2 
SRMHR = SRMDC+2 
SRMMR2 = SRMHR+2 
SRMER2 = $RMMR2+2 
SRMEC1 = SRMER2+2 
SRMEC2 = SRMEC1+2 
-SBTTL RM DRIVER COMMANDS 
= 101 
SEEK = 105 
RECAL = 107 
DRVCLR = 117 
RELS =z 175 
OFFSET = 115 


:NO ro 


SRECAL IBRATE 

DRIVE CLEAR 
sRELEASE 

OFFSET 


SEQ 0029 


0017 


<= -_————- «<= —<—— —<——-— 


| CZRMTBO_RMOS/3/2 DR CMPT TST 
| RM DRIVER COMMANDS 


era 000117 
: 95 000121 
| 96 000123 
97 000131 
98 000141 
99 000143 
100 000145 
101 000151 
102 000153 
103 000161 
104 000163 
105 000171 
106 000173 

167 
108 176700 
M4 000254 


ABASE 
AVECT1 


— — a ed 
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Wi Ww YI Ss ee 


1 
4 
4 
4 
5 
5 
6 
6 
7 
? 
: 


poe 


;RETURN TO ae L INE 
;READ IN PRESET 
:PACK ACKNOWL E DGE 


3; SEARCH 
3GET REGISTERS 


;SET FORMAT (& ECI OR HCj) 
DRIVE 


‘WRITE ye HEADER & PATA 
;WRITE DAT 

WRITE HEADER & DATA 
;READ D 

;READ HEADER & DATA 


SEQ 0030 


0018 
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~*..2 


1 


3 
5 


Oo NOs 


WM 


000174 
000176 


000200 
000204 
000210 


000046 
000052 


SEEEEEE 
2238885 
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.SBTTL TRAP CATCHER 


=0 
:*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A “’ «+2,HALT’’ 
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
Picci e. CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: “WORD 0 :;SOFTWARE DISPLAY REGISTER 
SWREG: WORD 0 ;sSOFTWARE SWITCH REGISTER 


-SBTTL STARTING ADDRESS(ES) 
JMP @A4START 
JMP @A4START1 
JMP @ASTART2 


005566 
005604 
005622 


;;JUMP TO STARTING ADDRESS OF PROGRAM 
CHANGE THE RH/RM UNIBUS ADDRESS 
;SECOND PASS STARTING ADDRESS 


-SBTTL ACT11 HOOKS 


J RARER AAA AAAEAEAR EAE AAERAARRRAEREAERHEEKEREHREERH ERE 


“HOOKS eh ay BY ACT11 
$SVPC= ;SAVE PC 


::1)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 


532)SET LOC. rt TO 40000 
-=$SVPC zz RESTORE P 


.=1100 
“SBTTL APT PARAMETER BLOCK 


CT TARA EAA AAA EERERAERERAERARAERRARAAEAEAEEEREREEEEREREEHEKEREERERES 


;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

SERA ERE ARERR AEE EARERE RATE REE REE RTERERER RARER RE REE RE TERE REED 
7zSAVE CURRENT LOCATION 

7zSET POWER FAIL TO POINT TO START OF PROGRAM 
7zFOR APT START UP 

;;POINT TO APT INDIRECT = PNTR. 

7z:POINT TO APT HEADER BLOC 

;zRESET LOCATION COUNTER 

ERE R RETA ERE AAA TARA TATA AER AAEERARARRR ERR T ER EER EEE EEE 
:SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 


SENDAD 


$APTHD: 
SHIBTS: 
SMBADR: 
STSTM: 

SPASTM: 
SUNITM: 


TAB.XY=.— 


3; TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

; ADDRESS OF APT eel rer (BITS 0-15) 

; RUN TIM OF LONGEST TEST 

: = RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT 

$ETEND-SMAIL/2 >;LENGTH MAILBOX~E TABLE (WORDS) 


SEQ 0031 


SS 
CZ7RMTBO RMOS/3/2 DR CMPT TST MACRO V04.00 4-APR-81 18:12:15 PAGE 6 
0019 COMMON TAGS SEQ 004, 


0 -SBTTL COMMON TAGS 


¥ J TARA AAAAAAAAAAREETETAARAAKEEARAEREREREREARKRERE EERE EKR EERE Ree 


:*THIS TABLE Ce OAAR. VARIOUS COMMON STORAGE LOCATIONS 
:*USED IN THE PROGRAM 


001114 .=TABLXY 
001114 $CMTAG: ::START OF COMMON TAGS 
| 001114 000000 D «(OO 
| 601116 000 STSTNM: .BYTE 0 :: CONTAINS THE TEST NUMBER 
| 001117 000 SERFLG: .BYTE 0 :: CONTAINS ERROR FLAG 
| 001120 000000 SICNT: 0 ;: CONTAINS SUBTEST ITERATION COUNT 
| 001122 000000 $LPADR: .WORD 0 ONTAINS SCOPE LOOP ADDRESS 
001124 000000 S$LPERR: .WORD 0 :: CONTAINS SCOPE RETURN FOR ERRORS 
001126 000000 SERTTL: .WORD 0 ;: CONTAINS TOTAL ERRORS DETECTED 
| 001130 S$ITEMB: .BYTE 0 :: CONTAINS ITEM CONTROL BYTE 
001131 001 SERMAX: .BYTE 1 : CONTAINS MAX. ERRORS PER TEST 
| 001132 000000 SERRPC: . 0 :: CONTAINS PC OF LAST ERROR INSTRUCT ION 
001134 000000 $GDADR: .WORD 0 ::CONTAINS ADDRESS OF ‘GOOD’ 
601136 000000 SBDADR: .WORD 0 ;: CONTAINS ADDRESS OF "BAD' DATA. 
001140 000000 $GDDAT: .WORD 0 ::CONTAINS ‘GOOD’ DAT 
601142 000000 $BDDAT: .WORD 0 :: CONTAINS "BAD' DAT +s 
001144 000000 WORD 0 : :RESERVED--NOT TO BE USED 
001146 000000 WORD 0 
00115C SAUTOB: .BYTE 0 : AUTOMATIC MODE INDICATOR 
001151 000 SINTAG -BYTE 0 : INTERRUPT MODE INDICATOR 
001154 177570 : WORD DSWR :ZADDRESS OF SWITCH REGISTER 
001156 177570 DISPLAY: .WORD DDISP : ADDRESS OF DISPLAY REGISTER 
001160 177560 $TKS: 177560 i: TTY KBD STATUS 
001162 177562 $TKB: 177562 :TTY KBD BUFFER 
001164 177564 $TPS: 177564 >: TTY PRINTER STATUS REG. ADDRESS 
001166 177566 $TPB: 177566 ::TTY PRINTER BUFFER REG. ADDRESS 
001170 000 L: .BYTE 0 :: CONTAINS NULL CHARACTER FOR FILLS 
001171 002 $FILLS: .BYTE 2 :CONTAINS # OF FILLER. CHARACTERS REQUIRED 
001172 012 SFILLC: .BYTE 12 ;: INSERT FILL CHARS. AFTER A ‘LINE FEED’ 
001173 000 STPFLG: .BYTE 0 :‘"TERMINAL AVAILABLE'’ FLAG (BIT<07>=0=YES) 
001174 000000 STMPO: .WORD 0 ; 3USER DEF INED 
001176 000000 STIMES: 0 ::MAX. NUMBER OF ITERATIONS 
001200 000000 $SESCAPE :0 sESCAPE ON ERROR ADDRESS 
001202 207 377 377 $BELL: .ASCIZ <207><377><377> * CODE FOR BELL 
001206 077 SQUES: ASCII /?/ : QUESTION MARK 
001207 015 S$CRLF: .ASCI! <15> > CARRIAGE RETURN 
001210 012 000 SLF: ASCIZ <12> =:LINE FEED 
FREER AHERERAERAEAAAAAREREKREEEEKEKERPSERTAKEE RARE EAE 
-SBITL APT MAILBOX-E TABLE 
FF RRA AREA AERA ATAAEARERERERAEEAAAEAERRERERAERERAEKERAE KEKE ES 
| ” EVEN 
001212 SMAIL: :;APT MAILBOX 
001212 000000 SMSGTY: .WORD AMSGTY ::MESSAGE TYPE CODE 
001214 000000 SFATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
001216 000000 S$TESTN: .WORD ATESTN ::TEST NUMBER 
001220 000000 SPASS: .WORD APASS ::PASS COUNT 
001222 000000 SDEVCT: .WORD ADEVCT ::DEVICE COUNT 
001224 000000 $UNIT: . WORD AUNIT ::1/0 UNIT NUMBER 
001226 000000 S$MSGAD: .WORD AMSGAD ::MESSAGE ADDRESS 
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_ APT MAILBOX~E TABLE 


een 
——— ee - 


| eterna 
' 


001230 000000 SMSGLG: .WORD AMSGLG 
001232 SE TABLE: 
001232 000 SENV: «BYTE AENV 
001233 000 SENVM: .BYTE NVM 
001234 000000 SSWREG: ASWREG 
001236 000000 SUSWR: .WORD AUSWR 
001240 000000 S$CPUOP: .WORD ACPUOP 

** 

+ 

;* 

;* 

;® 

** 
001242 000 $MAMS1: .BYTE AMAMS1 
001243 000 S$MTYP1: .BYTE AMTYP1 

"* 

> 

.* 

** 
601244 000000 SMADR1: .WORD AMADR1 

** 
001246 000 2: .BYTE 
001247 000 S$MTYP2: .BYTE AMTYP2 
001250 000000 SMADR2: AMADR2 
001252 000 SMAMS3: .BYTE AMAMS3 
001253 000 SMTYP3: .BYTE AMTYP3 
001254 000000 5: AMADR3 
001256 000 SMAMS4: .BYTE AMAMS4 
001257 000 SMTYP4: BYTE AMTYP4S 
001260 R4: . D AMADR4 
001262 000254 SVECT1: .WORD AVECT1 
001264 SVECT2: .WORD AVECT2 
001266 176700 SE: .WORD ABAS 
001270 SDEVM: .WORD ADEVM 
001272 000000 $CDwW1: WORD ACDW1 
001274 $CDW2: .WORD ACDW2 
001276 SETEND: 


H 3 
PAGE 6-1 


: i LENGTH 


: TUSER SWIT 
YPE 
11/04=01,11/05=02,11/20=03,11/40=04,11/45=05 
11/70=06 ,PDQ=07,0=10 


ME CLOCK 
fala POINT PROCESSOR 
ces aye 


#: 3: 
= 


BLKAT 
-TYPE BYTE <== (HIGH BYTE) 
900 NS E 


500 NS 
;;HIGH ADDRESS ,BL 
MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF "‘TYPE’’ ABOVE 
+ ¢HIGH + gw ip tey -S. BYTE 


se . TYPE 
;MEM.LAST ADDRESS ,BLK#2 
: :HIGH ay Pn -S.BYTE 


es YPE ,BL 
7MEM “LAST ADDRESS ,BLK&3 
: :HIGH ADDRESS .M.S.BYTE 
3 MEM. TYPE JBLKAG 
: aT rtioee ADDRESS ,BLK&#4 
; INTERRUPT VECTOR41,BUS PRIORITY#1 
>; INTERRUPT VECTOR#2BUS PRIORITY&2 
ne OF EQUIPMENT UNDER TEST 
‘sce tee DESCRIPTION WORDA1 
7: CONTROLLER DESCRIPTION WORDS2 


SEQ 0035 


0021 


—_—~—- ee 


} 
i 
| 


RRESo 


aah and and 
NO 


SSSEREsE 


176700 
000254 
172540 
172542 
000104 
177546 
000100 
177777 


177777 
000074 


001224 
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.- SBITTL 
SRMADR: .WORD 
VEC: .WORD 
SLKCSR: .WORD 
S$LKCSB: .WORD 
SLPVEC: .WORD 
SLKS: . WORD 
SLLVEC: .WORD 
PCLOCK: .WORD 
CLKFLG: .WORD 
HZ: . WORD 
STATIN: .WORD 
PACK: . WORD 
DRIVE = $UNIT 
ATTN: . WORD 
UNIT . WORD 
LSTAD: .WORD 
CHGADR: .WORD 
CFLAG: .WORD 
TSTNM: .WORD 
BADSEC: .WORD 
HOUR : . WORD 
MINUTE: .WORD 
SECOND: .WORD 
SIXTEE: .WORD 
CMCNT: .WORD 
CMCYL: .WORD 
STARSC: .WORD 
CMSEC: .WORD 
CMTRK . WORD 
INE: .WORD 
SECLMT: .WORD 
TRKLMT: .WORD 
CYLIMT: .WORD 
T: WORD 
RSTART: .WORD 
DTYP: . WORD 
XXDP: . WORD 
-SBTTL TABLES, 
; TABLE 


USER DEFINED TAGS 


176700 ;FIRST ADDRESS OF RH/RM REGISTERS 
254 VECTOR ADDRESS 
172540 “ADDR OF KW11=P STATUS REGISTER 
172542 “ADDR OF KW11=-P COUNTER BUFFER 
4 ADDR OF KW11=-P VECTOR 
177546 ADDR OF KW11=-. STATUS REGISTER 
0 : ADDR OF KW11=-L VECTOR 
-1 s*o° if gir IS . SYSTEM 
-1 :'O' IF A CLOCK IS AVAI LABLE 
74 = 74 (8) IF 60 HZ SYSTEM: o (8) IF 5O HZ SYSTEM 
0 : "TYPE STATISTICS’ INDICAT 
sENTRY TO THE TABLE D 
“DRIVE # GE 


ORAGE : 
:DRIVE # STORAGE FOR PRINTOUT 
RETRY COUNT IN THE UPPER BYTE 
;STORE LAST MEMORY ADDRESS HERE 
CHANGE RH/RM —_ ADDRESS FLAG 


; TEST NUMBER FOR PRINT AND SCORE RT. 
:BAD SECTOR/TRACK FLAG 
; COUNT STORED a - 999.) 


HERE 
STIMER ROUTINE COUNTER (FOR ONE SFCOND? 
: ZONE COUNT 


;CYLINDER ADDRESS 

:STARTING SECTOR (FOR TEST 6.8) 
:DALTA CYLINDER COUNT 

; TRACK ADDRESS 

NEW LINE FLAG AND COLUMN CTR 


N 
rg 
c 
< 
rr 
— we 
a=6 
re 
Grn 
: 


S 
CONTAINS DRIVE TYPE CODE OF DRIVE BEING TESTED 
; THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH 
>THE PROGRAM WAS LOADED. THE HIGH BYTE CONTAINS THE 
;"XXDP* DEVICE CODE THE RMO5/3/2. 


CONSTANTS, AND VARIABLE LOCATIONS 


OOOSWDBOWO COCO COOOOCOCOCOCoOoO CO oO 


;TABLE .ISTED BELOW SPECIFIES THE SECTORS TO BE WRITTEN 


“BY A LOGICAL DRIVE. 
-f 16 CYLINDERS IN ONE BLOCK, 
AND 7 CURRENT ZONES IN A PACK. 


ges 

LOGO: -BYTE 
LOG1: -BYTE 
LOG2: BYTE 
LOGS: BYTE 
LOG4: -BYTE 
LOGS: -BYTE 


EACH LOGICAL DRIVE WRITES TWO SECTORS ON ONE 
2 BLOCKS IN ONE WRITE-CURRENT 


0,15..13. 510. Goleta obo lou oldu c%e ole r2-5e7e8e 
1°0,14..11.,7,2.126.5.13.,4,10..15.,3,6,8..9. 
2°1,15. 126 Be o del 3c rO-14.45411..0.4.7,9.,10. 
520.95. 9, 6. theo Pel dec, 1bcet cd oOcetO.,11. 
BS. 1, Tie o ¥0s cde 8 Du Ae clot a tds ateBetcel lcs tee 
Gh P1500 t Nx cbcOcPuc 1 oOae t4s ec Bots 10. o tee tds 


SEQ 0034 


SEQ 0035 


-—N 
ww 
ens 
aa 
SS 
wus lu 
Nn wor mane 
oun a i sss Cag 
H-— 0 SUMTNO CAG 
SS Wnoenms ORK NMs Noro 
ot & o a . www 
tg ap a, ee Me Mo Mt De MM LM 
Sse ae 3 eeceerrerrrrrrrrrrre 
s » QOnr « be eb ee be be be be be be be be be be be 
es ee RL OD wee em =©§ OOOW Pete te te te tate tate te tata te tate tate ta te 
Co s s&s swF hlflUl8l le 
SONI ANOS 4330u We ~{—-1—\-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1— 
wrwmes 8 2 8 8 Oty x = eee 8 8 & & & & &@ & & & S&S Se Fe & & 
aint! Bea GG SVAeNeneguaseanaee 
wR Wes RAK Ununun A coococoococscoocscocscscssco 
— oe = PL OO wee — 6TH * 8&4 88 8.83. 8.3.98 8 8 88 8 8S 
OermwoO s+ MY s wa —- OOOOCOOSCSOSCSooooooooo°oe 
—~ = 8 &§ Oe wy aw ww ses 8s 8& 8 8& & & & S&S & & F&F & S&F & SF & FB 
O sv =e WN Ss se 8s 2225 NM OOOOCOOOCCOCOOoCoCoo°ooo 
My MT OO +H + v2. “~ ees 8 8&8 & & & §& & & & S&F & SF & & & 
NM ss eee 8 OOO MUM w ra OOooooocoTcoeoooeooceoo 
es e™\ = wOR « ee ————s_ f *es 88 8 &8& & & & & & & SF & & & & & 8 
mew 8 8 tH fs = w leleleleojleleleleleleleleleleoleleleleol~q) 
Om 8& & & = owreO — — — lu Ou) uw * = 8s &©& & &® &©& &@ &C &hUhhmhCc HhUCrFRMhC<C MMhC<C SDhC~<C ShUC RMmhC<C F]hUh]mM 
— 8 OOM § 8s le => OCOOOCOCCOCCCSCeCOoOooo0do0o 
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mt — 8S eee 8 Hw >+Z —- OOCOOCOCOCoCoO°oo°cocoo0ooo 
~ = CO = we Ty & 2 es eee UD | ess 88 8&8 8 & & 8 & 8S & & & & & SB 
eS Se SOQDSOEOOECOESCCCCCO 
ec Wee-w + st ie > OOOCOOSCOSoCooooo°ooo 
<q CoOMe = © = 8#Oer- Cy q_aeaww 8 *es es 8 8 8 8 & 8&8 &*# & SF & & & & & & 
a -—— MS) OR ete te tere Ww OOQOQooocoocoocoToco°o0o°oo 
s wy mlm + 8s 8 8 8 *es @©@ 8 8&8 & &@& & & & &©& SS & & & & 8&8 & SB 
wy On ~O x2 © © © Fat elelelelelelelelelelelelelelelelelelea) 
os = w+ Or Cur) w *e2e* ese &@ 8&8 & & & & & &—Uh &% & & & 8 & F 
* MTs Cerne YM DGSOQOOoooooTcocococooo 
Cu *» V.@ *«© = 8 & & 8 *e28ses 88 8 & 8&8 & & &©& * & & & © & & 8 
- WO ss se © & ew © Mw COOOOCOCCOCCSSOoooooooe 
oe *= 8s = Oe twmM~sYvy oO lus *e ee see ee & & & & & & & & @& 
t+) OrOR errr —e—- COOOH'-O Be SOooooc[eoceococooooo°oo 
| ed 
<2 
oO WWW OOO BA a sd ds a a a a as a as 
5 a ee ee oe ee ~~ QS be be 
a > >>>>>>>>> SSS55 OD OO OO OO OO 
a DODOODONOaOaOM® mM 3 DDOODODODODDOOODONODOODOOOODM 
—  oewvymweuvuwvnww.e. ss 8628 8 e *oeeseesee#srfte#2nrete##e#e#eee#eeee 
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ots te os ——Ve ek Ww re ee te 9 Oe CUNINPINOR. 00 
oe "Or OMT “%5624 & -_- nor. cond seme seth meee ned seh seek seh aed 
© Or OA errr — af ® 
° elelelelelelelelelea) MWY > W— 
4 ae ae PS Be EP ee ee sees OOOOOO ooo ooo 
> 
MTN OROc CUMS 
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< elelelelelelelelele) © 


S5555555 S  S888S8S8Ssssssssssss 
8 
8388338838 S8888 sssssssssssssssssss 


TABLES, CONSTANTS, AND VARIABLE LOCATIONS 

0 

7 

010 

011 

O12 

013 

014 

015 

016 

017 

002006 000000 

002010 000000 

002012 000000 


- CZRMTBO RMOS/3/2 DR CMPT TST 


We22 


; TABLE OF OVERWRITE SCORE POSITIVE OFFSET SCORE 





On-oMmM~~s 
OK NMTHOR WOO Ke eRe 
2 2 2 4 4 4 4 4 4 4 4 4 4 ss 
WWW YYYYUYUUUUUYU 
eeeaererrrrrrrae 
a a a a a ay Sy a a a 
"se *erte *e*e*e*eat®*et*et*e tate *e*e*e 
oho lelelelelelelelelelelela) 


* es 8s © te &©& © & & &©& © &©& © & & 


OOOOCOCOoooooo°o0o 


ole leleleleleleleleleleleleoloa) 


Oooo o[ocoooooocoo 


*es+ © 8s &@ &.mUMHhC<C OTMUCdK TChULT}AHRO © FS FTF SF F 


olelealelelelelelelelelelalole) 


Se 8.83% @ 88 @ 8 8&8 8& 8& @ B® 


a» e-nr 8 8 8& 8 3.8 8S 8B BS @ ® 


3 
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TABLES. CONSTANTS, AND VARIABLE LOCATIONS 
000 
000 
000 
000 


K 


SEQ uw 6 


; TRACK 15 
; TRACK 16 
TRACK 17 


’ 


0 ; TRACK 18 


0 
0 
0 


000 OVWP15: . 
000 OVWP16: . 
000 OVWP17: 


000 OVWP18: . 


_ CZRMTBO RMOS/3/2 DR CMPT TST 


0023 


; TABLE OF READ SCORE NEGATIVE OFFSET SCORE 


SSS883888 
SSSSSSSS8SSs8sssssse 


; TABLE OF READ SCORE,.POSITIVE OFFSET SCORE 


NUM tin on 
GMINA EGROOS HOHE SEES 


atefutefetufutefetutetutufututulstete: 


SSS5355888582822222 


OOooooooooooooooo°oo 


oe he ew) mw ba lw he law lolol alo lealealeleloleo) 


*eses 8#@ 8S &©® & & & & & &—CU 8h HhMUC(UC !'hh—«U[ Hh —hU['h Uc HB S& & 


po hw, mle lo lo hala lolol ola laleleloelolole) 


SSbligitiaasssasas 
SSSSSSSssssssssssss 





; TABLE OF SELF TEST SCORE 


0024 


r 
| 


CZRMTBO RMO5/3/2 DR CMPT TST 
AND VARIABLE LOCATIONS 


TABLES, CONSTANTS, 


! 


S& 


—) ed oo) = 


MMMM UAV) 
Ne 
SNONASNM—O© 


RREPERERERE 


000 
000 


001 


Lo 
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005 


OOOCOOOooo0oooo 
-_ * et ae Se Fk ah Ee SR E. 
OOoCCCVOOOOCOO0OO 


6 
7 
g 
9 
: 1 
TRACK 1 
1 
1 
1 
1 
1 
1 


DW NAWUESWR Oo 


: THE START LOGICAL DRIVE # TO WRITE ON EACH CYLINDER OF A BLOCK 
716 CYLINDERS,2 BLOCKS, TOTAL 32 CYLINDERS IN ONE ZONE 


0,1,3,6,10.,15.,5,12.,4,13..742,14.,11.,9.,8. 


INDST: 


BLKADR: 


OFF COD: 


; DATA/PARAME TER 
FMTDPB: 


BYTE 


PEEEEE ELE 


. WORD 


-BYTE 


DRIVO sADDRESS OF THE PARAMETER BLOCK FOR DRIVE 
DRIV1 sADDRESS OF THE PARAMETER BLOCK FOR DRIVE 
DRIV2 sADDRESS OF THE PARAMETER BLOCK FOR DRIVE 
DRIV3 ; ESS OF THE PARAMETER BLOCK FOR DRIVE 
DRIV4 sADDRESS OF THE PARAMETER BLOCK FOR DRIVE 
DRIV5S sADDRESS OF THE PARAMETER BLOCK FOR DRIVE 
DRIV6 ; SS OF THE PARAMETER BLOCK FOR DRIVE 
DRIV7 sADDRESS OF THE PARAMETER BLOCK FOR DRIVE 
DRIV10 zADDRESS OF THE P. TER BLOCK FOR DRIVE 
DRIV11 : SS OF THE PARAMETER BLOCK FOR DRIVE 
DRIVI2 sADDRESS OF THE PARAMETER BLOCK FOR DRIVE 
DRIV13 sADDRESS OF THE PARAMETER BLOCK FOR DRIVE 
DRIV14 sADDRESS OF THE PARAMETER BLOCK FOR DRIVE 
DRIV15 zADDRESS OF THE PARAMETER BLOCK FOR DRIVE 
DRIV16 :ADDRESS OF THE PARAMETER BLOCK FOR DRIVE 
DRIV17 DRESS OF THE PARAMETER BLOCK FOR DRIVE 
0 sOFFSET CODE TABLE 
:NUMBER FOR NEGATIVE OFFSET (DIR = OUT) 
-MUMBER FOR POSITIVE OFFSET (DIR = IN) 

BLOCK 
0 ;DRIVER PARAMETER BLOCK, DRIVE # 
0 ;OFFSET VALUE OR FMT16, HCI OR EC] 
0 ; COMMAND CODE 
0 :PSEL, A16 AND Al7 
0 COUNT (NEG) 
BUFFER “BUFFER ADDRESS 
0 ; SECTOR ADDRESS 
0 7] CK ADDRE 
0 YLINDER ADDRESS 
RM.REG ;ADDRESS TO SAVE ALL RH/RM REG'S 

; STATUS WORD 


kt ek ed ed etd eed emt YO UN SS LAI SS © 


NOUIESWN © 


SEQ 0057 


0025 


004526 
004530 
004532 
004534 


ye Sb ie 
= oe 
£Mmo 


VVvIiviw 
OfMmOO 


PREREE EERE SEE 
RES 


EE 
NOS 


wn 


2° 
B 
Wi 
P 


_ CZRMTBO RMOS/3/2 DR CMPT TST 
_ TABLES, CONSTANTS, 


000 


000 
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AND VARIABLE LOCATIONS 


RM.REG: 


. WORD 


0 
OOOCCOCOCCOCCOCOCOCOOOoOoOoo 


M 3 
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;RMCS1 


:GENERAL PURPOSE PARAMETER BLOCK 


;DRIVER PARAMETER BLOCK, DRIVE # 
Or FSET VALUE OR FMT16, HCI OR ECI 


; COMMAND CODE 
:PSEL, Al6 AND Al7 
COUNT (NE 


: K ADDRESS 

:CYLINDER ADDRESS 

sADDRESS TO SAVE ALL RH/RM REG'S 
: STATUS WORD 


;BUFFER 


sHISTORY FILE FOR 16. LOGICAL DRIVES:(0-17 OCTAL) 


GENDPB: .BYTE 0 
-BYTE O 
-BYTE * 
4 CYLNDR 
BYTE 0O 
‘ RM.REG 
: 0 
CYLNDR: .BLKW 2 
SFMT s 
SCOMND = $FM1+1 
SPSEL = SFMT+2 
= $FMT+3 
$BL* = SFMT+5 
$SEc = S$FMT+7 
$TRK = $FMT+10 
SCYL = $FMT+11 
SSYSNM = SFMT+13 
SPHYDR = SFMT+14 
$GAP = $FMT+15 
SEMTAB = $GAP+4 
DRIVO: .BYTE 780,0 
BL $SEMTAB-$COMND 
DRIV1 -BYTE 781,0 
-BLKB $SEMTAB-SCOMND 
DRIV2: .BYTE 78&2,0 





> COMMAND CODE 
;PROT SELECT AND A16,A17 
WORD C 


MA 
PHY SICAL DRIVE CODE (ASCII ) 
;LEFT TWO NULL BYTES 
:END OF HISTORY TABLE 
sHISTORY BLOCK OF LOGICAL DRIVE 0 
sHISTORY BLOCK OF LOGICAL DRIVE 1 


;HISTORY BLOCK OF LOGICAL DRIVE 2 


SEQ 0036 


0026 


| 


003 


146666 
115555 
033333 


040135 


010031 
052336 


CZRMTBO RMOS/3/2 DR CMPT TST 
TABLES, CONSTANTS, AND VARIABLE LOCATIONS 


000 
000 





-BLKB 
DRIV3: 
.BLKB 
DRIV4: 
.BLKB 
DRIVS: 
.BLKB 
DRIV6: 
-BLKB 
DRIV?: 


-BLKB SEM 
DRIV10: . 
KB $E 


BL 
DRIV11: 
.BLKB 
DRIVI2: 


-BLKB_ $E 
DRIV13: 
SE 


.BLKB 
DRIV14: 
.8BLKB 
DRIV15: 
KB 


BL 
DRIV16: 
-BLKB 
DRIV17: 
.BLKB 


STNDAT: 


PSEUDO: 


et _—- —_—_ — —- — eo -_ 
— - i — rr nee 


SEMTAB~-$ 
BYTE 7& 


3:0. 


SEMTAB-$COMND 


SEMTAB- 

-BYTE 7817,0 
SEMTAB-SCOMND 
; STANDARD DATA PATTERN 


SEER EEE 


N 3 
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sHISTORY BLOCK 
sHISTORY BLOCK 
sHISTORY BLOCK 
sHISTORY BLOCK 
;HISTORY BLOCK 
;HISTORY BLOCK 
sHISTORY BLOCK 
sHISTORY BLOCK 
sHISTORY BLOCK 
sHISTORY BLOCK 
sHISTORY BLOCK 
sHISTORY BLOCK 
;HISTORY BLOCK 


OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 


LOGICAL 
LOGICAL 
LOGICAL 
LOGICAL 
LOGICAL 
LOGICAL 
LOGICAL 
LOGICAL 
LOGICAL 
LOGICAL 
LOGICAL 
LOGICAL 
LOGICAL 


DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 


N Oo ww & WW 


SEQ 0039 


NENT A AS <u ————————— c-Si stent _——- - — _ 


; N 4 
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EQ 0027 TABLES, CONSTANTS, AND VARIABLE LOCATIONS 
346 017370 -WORD 017310 
5350 011347 -WORD 011347 
005352 102367 -WORD 102367 
aaee 152567 -WORD 152567 
905356 001246 «WORD 001246 
5360 160075 -WORD 160073 


Q 0028 


00 
7 00537 


12 005374 


42 005440 


_ CZRMTBO RMOS/3/2 DR CMPT TST 
| ERROR POINTER TABLE 


—_—_ — 


.-« 
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.SBTTL ERROR POINTER TABLE 


:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
‘ #L OCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 


:*NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 
: *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
;* EM :z:POINTS TO THE ERROR MESSAGE 
:* DH ::POINTS TO THE DATA HEADER 
3* DT ;z;POINTS TO THE DATA 
s@ OF :;POINTS TO THE DATA FORMAT 
SERRTB: 
sERROR 1 
a RH CONTROLLER INTERRUPT OCCURRED (RMAS=0) 
DT1 
DF 1 
ERROR 2 
a, UNEXPECTED ATTENTION OCCURRED 
DT2 : 
DF 2 
sERROR 3 
EM3 :MASSBUS PARITY ERROR (MCPE=1) 
DH3 
DT3 
DFS 
ERROR 4 
EM, :>MASSBUS PARITY ERROR (PAR=1) 
DH4 
DT4 
DF4 
sERROR §$ 
EM5 :ADDRESS PLUG BIT CHANGED 
DH2 
DT2 
DF 2 
ERROR 6 
ome :RH CONTROLLER DIDN'T RESPOND TO ADDRESSING 
D 
DT6 
DF 1 


SE ee eee _ - — «= 


SEQ 0041 


— -_ <_ 


RROR POINTER TABLE 


——— 


| CZRMTBO RMOS/3/2 DR CMPT TST 
| 
| 


— 


62 C05462 
005464 
005466 

65 005470 

66 

67 

68 

69 005472 


72 005500 


041602 
041750 
000000 


D 4 
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:* ERRORS 7 = 12 ARE PART OF THE ‘DUMP’’ SUBROUTINE 


ERROR 7 


ae % 
—_ — 
oOo 


sERROR i 


—_ 
— 
—s 


_— ee ee es ms ne ae a” _—— = -— ee 


SEQ 0047 


Q 0030 


Se See 


| C2 
ER 


RMT 
ROR 


ousun 2 
eee 


S 888s 


MNN ee es HB ee eer 
NHOVONAVUSWN—O”OMN 


RMO5/3/2 "3 CMPT TST 


INTER TAB 


MA 
SARA YIBBS 


wi 
Ww 
Or 
Nm 


012737 
012737 
000414 


012737 
012737 
000405 


012737 
005037 


005516 


173612 
005566 
000400 


005604 
177777 


005622 
001334 


000000 


001114 
001154 
001100 
ey 


E—E 4 
MACRO V06.00 4=-APR=-81 18:12:15 PAGE 9 


6 
023504 
001131 


000014 
000016 


> THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 


BADTMO: MOV (SP) ,RO ;SAVE PC WHERE THE TIME OUT OCCURED 
TST =(ROS [ADJUST PC = 
CMP (SP) +, (SP)+ “RESTORE STACK POINTER 
TYPE ,65$ is TYPE ASCIZ STRING 
BR 64$ T OVER THE ASC12 
31658: "ASCIZ <CRLF>/UNEXPECTED’ Bus TIMEOUT, PC=/ 
MOV RO,-(SP) :SETUP FOR TYPING OUT PC 
NOP :PUT "HALT(O)" INSTRUCTION HERE IF YOU WISH 
:T0 STOP ON UNEXPECTED TIMEOUT. 
JMP @RSTART “JUMP TO RESTART 
_SBTTL START OF PROGRAM 
START: MOY #. .RSTART :SETUP RESTART ADDRESS 
MOV #400. 00. CHGADR :200 START ADDRESS FLAG 
START1: MOV #. .RSTART :SETUP RESTART ADDRESS 
MOV #1, CHGADR 7204 START ADDRESS FLAG 
BR STARTS 
START2: MOV #. .RSTART :SETUP RESTART ADDRESS 
CLR CHGADR 7210 START ADDRESS FLAG 
START3: NOP 
INC #0 :TTY LOOP, WAIT FOR INCREMENT 
SNE - :0F WORD 
RESET =CLEAR THE WORLD 
SBTTL INITIALIZE THE COMMON TAGS 
::CLEAR THE COMMON TAGS (SCMTAG) AREA 
MOV #SCMTAG,R6 :rFIRST LOCATION TO BE CLEARED 
CLR (R6) + ee MEMORY LOCATION 
CMP #SWR,R6 
BNE 6 >: LOOP "BACK K IF NO 
MOV SETUP THE STACK POINTER 


#STACK, SP 
sz INITIALIZE A FEW VECTORS 


MOY #SSCOPE AF 1OTVEC :2107 VECTOR FOR SCOPE ROUTINE 
MOV #340, aMIOTVEC+2 ::LEVEL 7 

MOV MTVEC sem VECTOR FOR ERROR ROUTINE 
MOV #340. OrERTVECYD VEL 7 

MOV #STRAP, a#TRAPVEC :: :TRAP VECTOR FOR TRAP CALLS 
MOV #340, @#TRAPVEC+2:LEVEL 7 

MOV #SPWRDN , aAPWRVE C POWER FAILURE VECTOR 

MOV #340, a#PWRVEC+2 ;LEVEL 7 

MOV SENDCT,SEOPCT | ::SETUP END-OF-PROGRAM COUNTER 

CLR $TIMES :; INITIALIZE NUMBER OF ITERATIONS 


MOVB #1, SERMAX ALLOW ONE ERROR PER T 
INITIALIZE THE “f=BIT'" TRAP VECTOR. THEN LOAD LOCATION “SRTRN', IN 
::THE “'END-OF-PASS'' (SEOP) ROUTINE, WITH A "RTI'' OR ‘RTT 

MOV. #SRTRN.O#TBITVEC ::SET."7"* BIT VECTOR TO $RTRN 
MOV = #340 ,@#TBITVEC+2 S3LEVEL 7 


SEQ 004! 


F 4 
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0031 INITIALIZE THE COMMON TAGS SEO 0044 
006006 012737 000002 023610 MOV #RT1, SRTRN ::SET $RTRN TO A RTI 
006014 012737 606042 000010 MOV WO5$ .QMRESVEC 3; TRY 10.00 AR 
006024 012746 006032 MOV #64$,-(SP) SAND Pc. 
006030 000006 RTT :TRY THE RIT 
006032 012737 000006 023610 64$: MOV #RTT ,SRTRN SIRTT IS LEGAL==SE) SRTRN TO A RIT 
006040 000402 BR 66$ 
006042 062706 000010 65$: ADD #10,SP T ILLEGAL=-CLEAN OFF THE STACK 
| 006046 012737 000012 000010 66$: MOV #RESVEC+2, ame svit™ | TRESTORE TRAP CATCHER 
006054 005037 023616 CLR $T31T :CLEAR ‘'T’’ BIT SWITCH 
006060 012737 006060 001122 MOV #. ,SLPADR :3 INITIALIZE THE LOOP ADDRESS FOR SCOPE 
006066 012737 006066 001124 MOV #..SLPERR ;SETUP THE ERROR LOOP ADDRESS 


oie FOR A HARD DWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
sEQUAL TO A *~1"', SETUP FOR A SOFTWARE SWITCH REGISTER. 


_— ee | ee 


006074 013746 000004 MOV QWERRVEC,-(SP) :;SAVE ERROR VECTOR 
606100 012737 006134 000004 MOV #67$, ane RRVEC ::SET UP ERROR VECTOR 
006106 012737 177570 001154 MOV #DSWR,S ::SETUP FOR A HARDWARE SWICH REGISTER 
006114 012737 177570 001156 MOV #DD1SP DISPLAY ::AND A HARDWARE DISPLAY REGISTER 
006122 022777 177777 173024 CMP #-1, aSWR ii TRY TO REFERENCE HARDWARE SwR 
606130 001012 BNE 69$ ; ;BRANCH IF NO TIMEOUT TRAP OCCURRED 
ce THE HARDWARE SwWR IS NOT = a 
006132 000403 BR 68$ =BRANCH IF NO TIMEOUT 
006134 012716 006142 67$: MOV #68$, (SP) SET UP FOR TRAP RETURN 
006140 000002 RTI 
006142 012737 000176 001154 683: MOV #SWREG, SWR ::POINT TO SOFTWARE SWR 
006150 012737 000174 001156 MOV #DISPREG, DISPLAY 
006156 012637 000004 69S: MOV (SP)+,aMERRVEC ;:RESTORE ERROR VECTOR 
006162 005037 001220 CLR SPASS CLEAR PASS COUNT 
006166 132737 000200 001233 BITB #$#APTSIZE.SENVM TEST USER SIZE UNDER APT 
006174 001403 BEQ 70$ -:YES,USE NON-APT SWITCH 
006176 012737 001234 001154 sat MOV ASSWREG, SWR at iy USE APT SWITCH REGISTER 
32 :SETUP ‘‘TIMEQUT’’ TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS 
33 006204 012737 005502 000004 MOV WBADTMO,ERRVEC ;SETUP FOR UNEXPECTED TIMEOUT 
34 006212 012737 000300 000006 MOV WPRE,ERRVEC+2 LEVEL 6 
36 -SBTTL TYPE PROGRAM NAME 
::TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
006220 005227 177777 INC #1 ::FIRST TIME? 
006224 001036 BNE 71$ : ;BRANCH IF NO 
006226 022737 023544 000042 CMP MSENDAD, A462 ;::ACT-11? 
006234 001432 BEQ 71$ : =BRANCH IF YES 
006236 104401 006244 TYPE 72$ i: TYPE ASC1Z STRING 
006242 000427 BR 71$ OVER THE ASCI? 
006322 a eASCIZ <CRLF>@CZRMTBO - ‘BMO5/ $y 5 DRIVE COMPATIBILITY TSTa@<CRLF> 
.SBTTL GE! VALUE FOR SOFTWARE SWITCH REGISTER 
| 006322 005737 000042 TST age : ARE WE RUNNING UNDER XXDP/ACT? 
006326 001012 BNE os = BRANCH IF YES 
| 006330 123727 001232 000001 CMPB —s-: SENV,, #71 ;7ARE WE RUNNING UNDER APT? 
: 006336 001406 BEQ 73$ CH IF YES 
006340 023727 001154 000176 CMP SWR, #SWREG ; 3 SOF TWARE SWITCH REG SELECTED? 
006346 001005 BNE 74$ CH IF NO 
006350 104406 GTSwR =:GET SOFT=SWR SETTINGS 
006352 000403 BR 74$ 
| 006354 112737 00000! 001150 73$: MOVB  #1,$AUTOB ::SET AUTO=MODE INDICATOR 
; 





SD ee a re D-dimer gua — + --= 


003¢ 


cette Se ee 


-———--____- 


006362 


CZ7RMTBO RMOS/3/2 DR CMPT TST 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


001404 


001207 


177777 
006514 


001404 


006554 


006644 


022754 
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00004 i 


001404 
001404 


030324 
030326 


001352 


743: 
: THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE: 
:PAPER TAPE (MANUAL), ACT11, XXDP CHAIN OR DUMP 
CLR xXDP ;CLEAR '¥XDP" LOAD DEVICE STORAGE 
(MPR ss#'16, 841 ; LOADED FROM AN RMOS/3/2 ? 
BNE :BR IF NOT 
MOV a0, XXDP :GET DEVICE INDICATOR AND NUMBER 
CMPB—ss#7, XXDP :1S IT A VALID NUMBER 
BHIS _1$ YES 
CLRB = XXDP “NO, DEFAULT TO DRIVE 0 
1$: TST ag? :CHAIN MODE OR ACT11 AUTO ACCEPT ? 
BEQ 2$ *BR IF NEITHER 
TYPE 76$ i: TYPE ASCIZ STRING 
75$ :GET OVER THE ASCIZ 
35768: -ASCIZ. <CRLF>/NOT TESTING DRIVE / 
CLR -(SP) :CLEAR WORD ON STACK 
MOVB = XXDP,, (SP) “GET DRIVE ADDRESS 
TYPOS :TYPE THE ADDRESS 
“ONLY 1 CHARACTER 
BYTE :SUPRESS LEADING ZEROS 
TYPE SCRLF ; CR=LF 
3$ “GET NUMBER OF DRIVES 
2$: INC #-1 :FIRST TIME THRU HERE ? 
BNE 3$ :NO 
TYPE 78$ ii TYPE ASCIZ STRING 
7$ 7GET OVER THE ASCIZ 
55788: -ASCIZ. <CRLF>/TO TEST DRIVE / 
CLR -(SP) :CLEAR WORD ON STACK 
MOVB —sXXDP,, (SP) :GET DRIVE ADDRESS 
TYPOS :TYPE DRIVE ADDRESS 
BYTE 1 =ONLY 1 CHARACTER 
BYTE 0 :SUPRESS LEADING ZEROS 
TYPE 80$ 7: TYPE ASCIZ STRING 
BR 79$ =:GET OVER THE ASCIZ 
55,808: -ASCIZ /, HALT PROGRAM, REMOVE RRDP PACK AND REPLACE IT/<CRLF> 
TYPE 81$ : i TYPE ASCIZ STRING 
$ -:GET OVER THE ASCIZ 
i818: ASCIZ /WITH A WORK PACK, CLEAR LOCATION 40 AND RESTART PROGRAM./<CRLF> 
JSR PC. $TKINT : TURN ON THE KEYBOARD INTERRUPT 
MOV SRMADR,RMADR =: RH/RM ADDRESS 
MOV SRMVEC ,RMVEC :VECTOR ADDRESS 
MOV #ASNLST,RS :START OF AREA TO CLEAR 
4$: CLR (R5)+ 
CMP #INDST,RS :LOOK FOR END OF CLEAR AREA 
BNE 4 “BR IF NOT FINISHED 
MOV #STACK, SP :SETUP THE STACK POINTER 
CLR PS =CLEAR THE PROCESSOR STATUS WORD 
MOV H2,SIXTEE -1/60 TH OR 1/50 TH SECOND COUNTER VALUE 
CLR HOUR =CLEAR THE HOUR'S COUNTER 
CLR MINUTE =CLEAR THE MINUTE'S COUNTER , 





—_— Tee +e ee ee ee ee 


SEQ CO6* 


H 4 
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0033 GET VALUE FOR SOFTWARE SWITCH REGISTER 
84 007020 005037 001350 CLR SECOND ZCLEAR THE SECOND'S COUNTER 
85 007024 005037 601336 CLR CFLAG :CLEAR THE ‘CONTROL C° FLAG 
87 :ROUTINE TO DETERMINE BUFFER AREA S!ZE 
89 007030 0605227 177777 SIZMEM: INC #1 : SEE IF TIME TO SIZE MEMORY 
| 90 067034 001002 BNE 1$ :BR IF WOT 
91 007036 004737 027746 JSR PC, $SIZE :SEE HOW MUCH MEMORY ON SYSTEM 
| 92 007042 013737 030076 601332 1$: MOV SLSTAD,LSTAD SAVE THE LAST ADDRESS 
| 93 007050 023727 001332 160000 CMP LSTAD,#160C00 OVER 28k ? 
| 94 007056 7101403 BLOS 2$ ;NO,THEN DON'T SET THE NEW LIMIT 
: 395 007060 012737 160000 001332 MOV #160000,LSTAD :SET NEW LIMIT 
: %6 007066 162737 005670 001332 28: SUB #1500.*2,LSTAD :SAVE XXOP LOADER AND ABSOLUTE LOADER 
| ) ;SET UP THE OTHER SYSTEM DEVICES THAT THE PROGRAM WILL USE 
100 007074 0604737- 021234 SETVEC: JSR PC,CKCLK :START THE CLOCK 
| 101 067100 012737 177777 030264 MOV #-1, SAVEFG :SET THE SAVE REGISTERS FLAG 
105 :SETUP IF "XXDP* OR 'ACT11° OPERATION 
| 105 007106 005001 MONTR: CLR R1 :DRIVE # 
106 007110 005002 CLR R2 “AVAIL TABLE INDEX 
107 007112 005003 CLR R3 =DRIVEM XK 2 
| 108 007114 016300 004444 1$: MOV BLKADR(R3),RO =LOAD DPB ADDRESS 
| 109 007120 004737 021720 JSR PC, CLRDPB [CLEAR DPB BLOCK 
110 007124 022322 2$: CMP (R5)+, (R2)+ - INCREMENT INDEX 
111 007126 005201 INC “NEXT DRIVE 
112 007130 022701 000007 CMP i sALL DRIVE ASSIGN ? 
ee 007134 002367 BGE 1$ *NO 
115 
116 :ASSIGN LOGICAL DRIVES TO BE TEST IN THE PASS1 AND PASS 2 
117 ; THREE WORDS ARE USED IN THE BIT MAPS: 
118 - ASNLST = SPECIFIES THE LOGICAL DRIVES ASSIGNED 
119 ; ASSGN1 = SPECIFIES THE LOGICAL DRIVES WILL BE TESTED IN PASS}. 
:20 : ASSGN2 = SPECIFIES THE LOGICAL DRIVES WILL BE TESTED IN PASS2. 
122 *EACH LOGICAL DRIVE HAS A HISTORY FILE LABELED DIRV'Z (z=0 TO 17) 
123 :THE LOCATIONS LABELED $SYSNM AND SPHYRD IN THE HISTORY FILE 
126 STORE THE SYSTEM NAME (A TO H) AND PHYSICAL DRIVE NUMBER 
126 -THE SUB-SYSTEM ADDRESS AND INTERRUPT VECTOR ARE STORED 
127 IN THE TABLE LABELED “‘SYSADR:' 
129 “THE LOCATIONS SYSADR AND SYSADR+2 FOR SUB-SYSTEM A.SYSADR+4 
130 ZAND SYSADR+6 FOR SUBSYSTEM B , ETC. THE FIRST WORD 
ba :1S THE SUB SYSTEM ADDRESS WHILE THE SECOND WORD IS THE VECTOR 
135 :THE LOGICAL DRIVES ARE ASSIGNED FROM CONSOLE KEYBOARD. 
135 007136 012700 002006 MOD00: MOV #ASNLST,RO sADDRESS OF 1ST BIT MAPS IN RO 
136 007142 012701 004424 MOV #INDST, R1 “LAST ADDRESS TO CLEAR 
137 007146 005020 1¢: CLR (RO) + ;CLEAR CURRENT POINTED ADDRESS 
138 007150 020100 CMP R1,RO “ALL 
139 007152 101375 BHI 1$ oe. THEN BRANCH BACK 
140 007154 012737 000101 001274 MOV #°A,$CDW2 = TEMP STORAGE OF SYS ‘vAME 


CZRMTBO RMOS/3/2 DR CMPT TST 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


141 
142 
143 007162 


166 007276 
007 


80 007346 
181 007350 
182 007352 
183 007354 
184 007360 
185 

186 007364 
187 007370 
188 007372 
189 007376 
190 007402 
191 007410 
192 007414 


193 007420 
194 007426 


062701 


022410 


030312 
176700 


001404 
001404 
043326 


043336 


000054 


001334 


001274 
177760 


002014 
001272 


091276 
001300 
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001300 


000002 


MOD21: 


1$: 


2$: 


3$: 


MOD23: 


1$: 


2$: 





DRIVE 
» SCRLF 


»MESG2 
(SP)+,R1 
(R1) 


3$ 
R5,CK.OCT 
MOD 21 


ATABIT(R2), DRIVE" 
#176700 , SRMADR 


2 

XXDP 

2$ 

XXDP ,R2 
2$ 
-QDRIV 
R2,-(SP) 


2 

0 
,LODEV 
MOD21 
R1 
(R1) 
3 

#*, (R14 
MOD21 

1$ 

CHGADR 
MOD 22 
$(DW2,R1 
#177760,R1 
R1 

R1 


R1 
#SYSADR,R1 
R1,$(Dwi 


DRIVE 
5 
$CD 


PC ,BUSADR 


SRMADR , (RO) 
SRMVEC ,2 (RO) 
MOD11 


CRO) | SRAADA 
2(RO) , $RMVEC 


1 af STORAGE OF PHYSICAL DRIVE BIT MAP 


; SUB-SYSTEM 
i" ep MARK 


DRIVE(S) 


;READ IN THE DRIVE NUMBERS 
;GET THE INPUT LINE ADDRESS 
: END OF STRING <CR> ? 


+ CHECK THE DIGIT MUST 0 TO 7,RETURN VALUE IN R2 
NCORRECT DRIVE NUMBER, ENTER AGAIN 

;SET THE PHYS. DRIVE BIT, - = DRIVE NUMBER 
IT STANDARD RH/RM ADDRESS ? 


IF NO 
THIS LOAD DEVICE ? 
F NO 
ee THE DRIVE ? 
F NO 


;TYPE °IS LOAD DEVICE’ 
s TRY AGAIN 


: END OF STRING <CR> ? 


;MUST BE A COMMA 
sENTER AGAIN ,IF NOT 
SLOCATE NEXT DRIVE 


7START AT 200 ? 

:BRANCH IF SO 

:SYS_ NAME ASCII FROM A TO H 
sLEFT ONLY 4 BITS 

sADJUST INDEX VALUE 

32 WORD INDEX VALUE 


*SYS ADDRESS TABLE ADDRESS 
: SYS ADDRESS TABLE'S ENTRY TO CDw!1 


:CHECK IF ANY PHYSICAL DRIVE(S) ASSIGNED 
;BRANCH IF NONE 

:SYS ADDRESS TABLE ENTRY 

; SYS ADDRESS 

; SYS VECTOR 

; CHECK THE ADDRESS WITH THE OPERATOR 
sNEW RH/RM ADDRESS INTO TABLE 

;NEW VECTOR OF RH/RM INTO TABLE 

;BRANCH TO NEXT MODULE 


SEQ 004, 


0035 


oe 


208 007452 
209 
210 007456 


251 007664 


 CZ7RMTBO RMOS/3/2 DR CMPT TST 
| GET VALUE FOR SOF TWARE 


001276 
001300 


001224 
007624 
177777 


002006 
000001 


000007 


000015 
000060 
000011 
030312 
001334 
177777 
042651 
042006 


000001 
002006 
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SWITCH REGISTER 


002014 
002016 


002006 


000014 


001224 





MOD22: MOV SRMADR,SYSADR  ;LOAD THE SYSTEM ADDRESS TABLE 
MOV SRMVEC,SYSADR+2 ;LOAD THE VECTOR 
:$CDWe ASCII] NAME OF SUB SYSTEM (A TO H) 


“$CDWl = ENTRY TO THE SYS ADDRESS TABLE 
:DRIVE = PHYSICAL DRIVES TO BE ASSIGNED 


“THIS SECTION OF CODING USES THE ABOVE PARAMETERS 
:TO SET UP THE BIT MAP OF ASNLST,ASSGN1 ,ASSGN2 


MODi1: TST DRIVE sANY DRIVE ASSIGN ? 
BNE MOD 30 ;BR Ir YES 
JMP MOD 12 ;BRANCH, IF NONE 
MOD 30: #=~1 ,ASNLST ‘On IF —- 16 LOGICAL DRIVES BEEN ASSIGNED ? 
MOV ASNLST,RO sFOUND THE AVAILABLE LOGICAL DRIVE LOCATION 
MOV #1,R1 : START FROM LOGICAL DRIVE 0 
CLR Re ; INDEX VALUE 
1$: BIT R1,RO 31S THE LOGICAL DRIVE AVAILABLE ? 
ae 2$ :YES 
ROL R1 sNEXT LOGICAL DRIVE 
BCS 5$ ;BRANCH IF NONE IS AVAILABLE 
ADD #2,R2 : INCREMENT INDEX VALUE 
BR 1$ OCATE NEXT LOGICAL DRIVE 
2$: MOV BLKADR(R2), ace ;GET THE LOGICAL DRIVE’S HISTORY FILE 
MOVB $CDW2, SSYSNM(R ae THE ASCII SYS NAME 
BIS R1.ASNLST 3SET LOGICAL DRIVE ASSIGN BIT 
BIS R1,ASSGN1 :SET PASS 1 BIT 


BIS R1,ASSGN2 :SET ‘oy 2 BIT 


CLR R 
3$: BITB ATABIT(R2) ,DRIVE" :1S THIS DRIVE ASSIGNED ? 
BNE 4$ IF YES 
INC R2 :PHYSI CAL DRIVE NUMBER 
CMP R247 L DRIVES DONE YET ? 
BLE 3$ z BR IF NO 
BR :YES, EXIT 
4$: MOVB R2, ( :LOAD THE PHYSICAL DRIVE # INTO HISTORY FILE 
MOVB (R4) RSPHYDR(RS) :GET PHYSICAL DRIVE NUMBER AND 
B1S6 owe $PHY Paes hr :MAKE IT ASCII. 
vB T, SGAP(R sMAKE UP FOR SCORE TYPE 
BICB ATABLT(R2) DRIVE ;DEASSIGN DRIVE BIT FROM LIST 
5 MOD 30 ;BRANCH IF NOT ALL DONE 
MOD12: TST CHGADR 3200 START 
: BGT 7$ err THEN EXIT 
1$: CMP #~-1 ,ASNLST ;FULL HOUSE 
BEQ 7$ :YES, THEN EXIT 
2$ TYPE »MESGS5 WILL TEST 
TYPE »MESG2 ; DRIVE(S) 
CLR R3 FY TO LOGICAL DRIVE HISTORY FILE 
MOV #1 ,R4 :BIT MAP OF ASNLST 
3% BIT R4,ASNLST ASSIGNED LOGICAL DRIVE ? 
BEQ 5$ :NO 


ee es we ee we es ee 


SEQ 0046 


_ CZRMTBO RMOS/3/2 DR CMPT TST 


' 
i 


266 734 
267 007740 
68 007744 
269 007750 
271 CO07754 

2 60 


88 
289 


| GET VALUE FOR SOF TWARE 


012777 


004444 
000014 


001174 


012460 


017444 
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001274 


001274 


000131 


001272 


030326 
020172 


4$: 


5$: 


6$: 
7$: 


8$: 


BLKADR(R3) ,R5 


SSYSNM(R5) ,$CDW2 
4$ 


(R5) ,-(SP) 


(SP) +,$TMPO 
STMPO,#'Y 


;LOAD THE HISTORY FILE _— 
;ON THE SAME SYSTEM 


:NO 
:TYPE THE PHYSICAL DRIVE # 


s TYPE 1 


BLANK 
; INCREMENT TO NEX7 LOGICAL DRIVE 


;BIT MAP OF THE NEXIS LOGICAL DRIVE 
BRANCH eet LOGICAL DRIVE’S CHECKED 


° 
. 


: SUB SYSTEM 
YPE hey QUOTATION MARK 


AT 
“TYPE **** QUOTATION MARK 


; CHECK NEXT SUB SYSTEM 
;ALL EIGHT SUB SYSTEMS CHECKED? 


7Y 
; CR-LF 
zASK FOR OTHER SUB SYSTEM 


F 
“TYPE *Y* CHARACTER 
:SET UP OTHER SUB SYSTEM 
; TYPE a CHARACTER 
ZSTART AT 210 
sVES. EXECUTE PASS2 ONLY 
:TO PASS1 
7CLEAR THE PASS1 BIT MAP 
;BRANCH TO PASS2 


sPASS ONE, THE VARIABLES ARE ASSIGNED AS FOLLOWS: 
$ ADDRESS 


SYSTEM NAME A 


$CDW1, 
#IDLEX,@RMVEC 


OF wy CURRENT LOGICAL DRIVE HISTORY FILE 
THROUGH H 


CURRENT LOGICAL DRIVE ’ 

ASSIGNED LOGICAL DRIVES 

ASSIGNED LOGICAL DRIVES IN THIS FASS 
ADDRESS OF DPB BLOCK 

TEMP STORAGE OF ADDRESS OF THE LOGICAL BLOCK 


FEEDED INTO DRIVER-HANDLER 


ANY DRIVES ASSIGNED FOR PASS1 
;BR IF YES, ELSE GO TO 
:END OF PASS 1 


: INDEX OF LOGICAL BLOCK 
:ADDRESS OF 62 Ne we 0 
:SY S NAME STARTS FROM A 

LOAD SYS-TEM A INTO 

:DIRVER ~HANDLER 

:RI=ADDRESS OF LOGICAL BLOCK 1 
SRESET ALL INTERRUPT VECTOR 


ee ee re ee ee we eo ee - 


SEQ 0049 
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| CZRMTB ! 
| 0037 | GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0050 
| 309 910134 005077 020170 CLR @RMVE C +2 :CLEAR THE INTERRUPT LEVEL 
| 310 010140 104401 001207 TYPE S$CRLF “CRLF 
311 010144 104401 042021 TYPE »MESG3 3** STARTING PASS 1 
| 312 010150 104401 042664 TYPE ME SG6 : 
313 010154 104401 041776 TYPE MESG1 : SUB=Sy STEM 
314 010160 104401 042644 TYPE ;QUOTM Type *'"* QUOTAT ION MARK 
| 315 010164 104401 001274 TYPE $CDW2 : SYSNAME (A 10 i 
316 010170 104401 042644 TYPE ;QUOTM TYPE '' QUOTA TION MARK 
317 010174 111137 001224 MOVB (R11) DRIVE “LOAD THE PHYSICAL DRIVE # 
318 010200 104401 001207 TYPE /SCRLF “CRLF 
319 010204 104401 042045 TYPE »MESG4 “MOUNT PACK ON THE DRIVE 
320 010210 104401 001274 TYPE ,$CDW2 * SYS=NAME(A ~ 
321 010214 113746 001224 MOVB  DRIVE,-(SP) = TYPE THE DRIVE. 4 
322 010220 104403 TYPOS 
323 010222 001 .BYTE 1 
324 010223 000 ‘BYTE 0 
325 010224 104401 042752 TYPE ,BLNKS1 : TYPE 1 BLANK 
326 010230 104401 042073 TYPE _MESG8 
327 010234 104401 001207 TYPE “$CRLF : CRLF 
328 010240 104401 042106 TYPE ME SG9 
329 010244 104401 042752 TYPE ;BLNKS1 s TYPE 1 BLANK 
331 010250 104411 2$: RDLIN :CHECK IF O.P. READY 
332 010252 012602 MOV (SP)+,R2 “LOCATE THE INPUT LINE 
333 010254 105712 TSTB ~—._—« (R2) ; FOLLOW BY <CR> 7 
334 010256 001374 BNE 2$ F 
335 010260 004737 030334 JSR PC .RMINIT INITIALIZE THE SUB SYSTEM 
336 010264 012737 177777 030264 MOV #~1, SAVEFG ; SAV VE_ALL RH/RM REGISTERS 
337 010272 012737 177777 030266 MOV #~1, SEEKFG “DON'T DO IMPLY SEEK 
338 010300 013700 001224 MOV DRIVE ,RO :RO=PHYSICAL DRIVE # OF THE SUB SYSTEM 
339 010304 105760 030206 TSTB —— DRVSTA(RO) “DRIVE EXIST AND ON LINE ? 
340 010310 003467 BLE 6$ =BRANCH IF 
341 010312 105760 030216 TSTB = DRVTYP(RO) *DRIVE IS AN NRMOS/3/2 ? 
342 010316 003464 BLE ‘BRANCH IF NOT 
34 103 116037 030216 001402 MOVB DRVTYP(RO), rte GET DRIVE TYPE TO BE TESTED 
344 010326 012737 000022 001372 MOV #18. TRKLM 7GET LAST TRACK FOR AN RMOS 
345 010334 122760 000007 030216 CMPBOéKT7zy SAVTEP CRO) 71S DRIVE AN RMOS ? 
346 010342 001403 BEQ 3s :BR IF YES 
347 010344 012737 000004 001372 MOV #4, TRKLMT *GET LAST TRACK FOR AN RMO3/2 
349 010352 012700 004506 3$: MOV #FMTDPB,RO :DPB ADDRESS 
350 010356 113710 001224 MOVB DRIVE, (RO) [LOAD THE DRIVE NUMBER 
351 010362 012760 043456 000006 MOV WBUFFER,$BUF (RO) :LOAD BUFFER ADDRESS 
352 010370 012760 004526 000014 MOV #RM.REG, 14(RO) *AREA TO SAVE ALL RH/RM REG'S 
353 010376 012760 177400 000004 MOV #~256. ,$WRDM(RO) :WORD COUNT (NEG) 
354 010404 01376C 001374 000012 MOV CYLIMT.$CYL(RO) ;CYLINDER 822. 
355 010412 113760 001372 000011 MOVB —~ TRKLMT. $TRK(RO) :GET TRACK ADDRESS 
356 010420 105060 000010 CLRB  $SEC(RO) SEC 
357 010424 112760 000171 000002 MOVE  #RDDAT, SCOMND (ROS sREAD DATA COMMAND 
359 010432 004037 031062 4$: JSR RO,RMOS ;CALL THE DRI VER-HANDLER 
360 010436 004506 FMTDPB “PARAMETER AD 
361 010440 000774 BR 4$ :LOOPING IF QUEUE IS NOT SUCCESSFUL 
362 010442 005737 004524 5$: TST FMTDPB+16 >COMMAND DONE ? 
363 010446 001775 BEQ 5$ *BRANCH IF NOT. 
364 070450 100015 BPL 7$ :BRANCH IF DONE, WITHOUT ERROR 
365 010452 062737 000002 004516 ADD #2,FMTDPB+10  =TRY NEXT SECTOR (0. 2,4,6,8) 


| 0038 


RMTBO RMOS/3/2 DR CMPT TST 
T VALUE FOR SOF TWARE 
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366 010460 122737 000010 004516 (MPR =so#B. .FMTDPB+10 = : ALL_-FIVE SECTORS CHECKED ? 
367 010466 101361 BHI 4$ “NO, THEN TRY AGAIN 

369 010470 104401 001207 6S: TYPE  ,$CRLF CRLF 

370 010474 104401 042142 TYPE § {MESG10 “DRIVE IS NOT READY 

371 010500 600137 011004 JMP ENDX1 “STOP THE TEST 

373 :BAD SPOT FILE Is RETRIVED, IS STORED FROM BUFFER+4 TO BUFFER+256. FIRST 
374, :WORD CYLINDER #, SECOND WORD TRK AND SEC NUMBERS. FILF 1S TERMINATED BY 
bee °A -1 IN THE CYLINDER NUMBER 

377 010504 012704 043466 7$: MOV WBUFFER+10.R4  :R4 ADDRESS OF BAD SPOT FILE 
378 010510 022714 177777 8$: CMP #=1, (RG) “END OF BAD SPOT FILE ? 

379 010514 001411 BEQ YES 

380 010516 022704 044456 CMP WSUFFER+1000.R4 “END OF BAD SPOT FILE ? 

381 010522 101406 BLOS “BRANCH IF IT IS 

382 010524 537 010636 JSR RS. SPOTX :CHECK THE CYLINDER POINTED BY (R4) 
383 010530 22 BR 11$ :BRANCH IF BAD SPOT IN THE TEST ZONES 
384 010532 062704 000004 ADD #4 RG [NEXT BAD SPOT ADDRESS 

385 610536 000764 BR 8$ “LOOPING BACK 

387 010540 032777 000200 170406 98: BIT WB1T7,aSwR sSWITCH 7 SET ? 

388 010 1404 BEQ 10$ “BRANCH IF NOT SET 

389 010550 912700 004506 MOV #FMTDPB,RO :DPB SS 

390 010554 737 020702 JSR PC PRT *PRINT THE BAD SPOT FILE 

391 010560 105760 000010 10$:  TSTB Sséc (RO) [SECTOR 10 HAS BEEN READ ? 

392 010564 001022 BNE 13$ “BRANCH IF SO 

393 010566 112760 000012 000010 MOVB #10.,$SEC(RO) <:READ SECTOR 10 

394 010574 000716 BR 4$ “LOOPING BACK 

396 010576 104401 042207 11$: TYPE | MESG11 ;PACK NOT ACCEPTABLE 

397 010602 104401 001207 TYPE _$CRLF > CR=LF 

398 010606 032777 000200 170340 BIT #B1T7.aSwR “SWITCH 7 SET ? 

399 010614 001404 BEOQ 12$ “BRANCH IF NOT SET 

400 010616 012700 004506 MOV #FMTDPB.RO : S 

401 010622 004737 020702 JSR PC PRTBAD :TYPE THE BAD SPOT FILE 

402 010626 000137 010054 12$:  JMP XPASS1 “RESTART PASS 1 

403 010632 000137 011020 13$: JMP TST1 *PROCEED TO TEST 1 

405 

406 : SUBROUTINE SPOTX 
407 “SEE IF THE CYLINDER POINTED BY (R4) IS IN THE TESTING ZONES 
pe ;BELOW: 

410 “(0-15 126 143 256¢271 384-399 512-527, 640-655. 768-783. 
411 7112-127, 368-383, 496-511, 624-689, 752-767. 17-32. 
412 3145-160, 373-588" 401-416, 0380844. 657-672. 785-800 AND 620) 
414 7 CALL 

415 ; JSR R5,SPOTX :R4=POINT TO CYLINDER NUMBER 
416 : RET1 “ERROR RET 

417 : RET2 “NORMAL RET1 

419 010636 010146 SPOTX: MOV R1,-(SP) : SAVE R1 THROUGH R3 

420 010640 010246 MOV Re.~(SP) 

421 010642 010346 MOV R3.-(SP) 
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0039 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0052 
423 010644 005003 CLR 3 :ERROR FLAG 
| 454 010646 005046 CLR = SP) “DUMMY PAIR 
425 010650 005046 CLR -(SP) “DUMMY PAIR 
426 010652 005046 CLR -(S§P) : ZONE STARTING ADDRESS 
427 010654 012746 000007 MOV #7,<(SP) * SEGMENT R 
428 01 012746 000021 MOV #17. ,-(SP) + ZONE START ING ADDRESS 
429 01 012746 000007 MOV #7,=(SP) + SE R 
430 010670 012701 000160 MOV #112. ,R1 ‘ATE TONE START ING ADDRESS 
431 010674 012702 MOV »R2 *R2=SEGMENT NUMBER 
016700 021401 1$: CMP (R4),R1 :CYL IN THE ZONE ? 
433 010702 103410 BLO $ ; CH IF NOT 
434 010704 701 000017 ADD #15.,R1 7CHECK WITH THE UPPER BOND 
435 010710 021401 CMP (RG) RI :CYL IN THE ZONE ? 
436 010712 101002 BHI $ :BRANCH IF NOT 
437 010714 052703 000002 BIS #B1T1,R3 :SET THE ERROR FLAG 
439 010720 162701 000017 2$: SUB #15.,R1 :RESTORE TO THE LOWER BOND 
440 010724 005302 3$: DEC R2 [DECREMENT THE SEGMENT COUNT 
441 010726 001403 BEQ 4$ sALL ‘SEGMENT CHECKED ? 
442 010730 062701 000200 ADD #128. ,R1 -ADJUST ZONE STARTING ADDRESS 
443 010734 76 1$ :LOOPING BACK UNTIL ALL SEGMENTS ARE CHECKED 
445 010736 012602 4$: MOV (SP)+,R2 :POP THE NEXT SET OF ZONE PARAMETERS 
446 010740 012601 MOV (SP)+,R1 
447 010742 005702 TST R2 :DUMMY PAIR 
448 010744 001355 BNE 1$ ; CH IF NOT 
449 010746 005701 TST R1 =DUMMY PAIR 
450 010750 001353 BNE 1$ :BRANCH IF NOT 
452 010752 021427 001154 5$: CMP (R4) ,#620. :0N CYLINDER 620 ? 
453 010756 001002 BNE 6 ; 
454 010 052703 000002 BIS #B1T1,R3 :SET ERROR FLAG 
455 010764 005703 6$: TST R3 :ANY ERROR ? 
456 010766 001002 BNE 7$ ; 
457 010770 062705 000002 ADD #2,R5 7AD ‘UST FOR NORMAL RETURN 
458 010774 012603 7$: MOV (SP) +,R3 {RESTORE R3 THROUGH R1 
459 010776 012602 MOV (SP)+,R2 
11 012661 MOV (SP)+,R1 
461 011002 | RTS R5 ZEXIT 
463 011 104401 001207 ENDX1: TYPE  ,S$CRLF sCR-LF 
464 011010 104401 043044 TYPE .MESG21 =DRIVE NOT ONL INE OR NOT ASSIGNED 
469 011014 000177 170360 JMP @RSTART > JUMP TO RESTART 
467 : THE FOLLOWING CODING FOR TEST 1 THROUGH TEST 4 
468 :PARAMETER IN TST 1 
469 : $CDW1 = ADDRESS OF LOGICAL DRIVE BLOCK 
470 ; DRIVE = PHYSICAL DRIVE # 
471 : SDEVM = LOGICAL ORI -1 
472 ; ASSGN1 = ASSIGN LOGICAL DRIVE BIT 
473 : ASNLST = ASSIGNED LOGICAL DRIVE MAP I INDICATOR 
on : $(DW2 = SYS=NAME 
476 >$CDW2,DRIVE ARE ONLY CHANGED IN TST1 DURING PASS 1 
ph :SDEVM,ASSGN1,$CDW1 ARE CHANGED BY THE TEST 4 
479 :1ST 1:DIRECT OPERATOR TO MOUNT AND LOAD PACKS 


| CZRMTBO RMOS/3/2 DR CMPT TST 


—_—— - - =~ e - ee ————— 


480 
481 

011020 

0110 
482 0110 
483 0110 
484 011042 
485 011050 
4846 011052 
487 011056 
488 011064 
489 011066 
490 011074 
491 011102 
492 011106 
493 011112 
494 011116 
495 011122 
496 011126 
497 011132 
498 011136 
499 011142 
500 011146 
501 011152 
502 011156 
503 011162 
504 011166 
505 011170 
506 011171 
507 011172 
508 011176 
509 011202 
9 011206 
512 011212 
513 011214 
514 gr igh6 
515 011220 
516 011222 
517 ot ise 
518 011232 
519 011234 
520 011236 
521 011240 
522 011246 
§23 011254 
524 011260 
525 011266 
526 011274 
527 011300 
528 011304 
269 011306 
530 011312 
531 011314 
§32 011322 
533 O11 ss 
534 011332 


seee 


—= a 


| GET VALUE FOR SOFTWARE SWITCH REGISTER 


001274 
017224 


030324 
030326 


030264 
030266 


B 5 
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SSeS HeeKeRAHKeHaFaReateReeaeeeeeeeeeeenee 


+ 


2s: 


001402 
030216 


réT1- 


SCOPE 


#STACK, SP 


$CDW1 ,BLKADR 
6$ 


$CDw1, 


oSCRLF 
»MESG3 
-MESG6 
-MESG1 
,QUOTM 
-$CDW2 
,QUOTM 

(R1) DRIVE 
,SCRLF 


*$CDwW2 
SRIVE .-(SP) 
1 


3:D0 1 ITERATION 


:LOAD THE TEST NUMBER 
SINITIALIZE THE STACK POINT 
‘Wren ext VE 0 


=LOGICAL DRIVE BLOCK ho 


R1 
SSYSNMCR1) /$cDwW2" RSTILL ON THE SAME SYSTEM 


; THEN ,EXIT 
SSYSNM(R1) »$CDW2- ;LOAD THE NEW 
#IDLEX ,@RMVEC 
@RMVE C+ 


W SUB SYSTEM NAME 
;RESET THE INTERRUPT VECTOR 
:CLEAR THE INTERRUPT LEVEL 


CR=L 
:** STARTING PASS 1 
: SUB-SYSTE 

:TYPE °'"' QUOTATION MARK 
:LOAD THE PHYSICAL DRIVE # 
“MOUNT PACK ON THE DRIVE 


: SYS-NAME(A TO H 
; THE PHYSICAL DRIVE # 


0 | 

,BLNKS1. : TYPE 1 BLANK 

-MESG8 :AND LOAD 

, SCRLF > CR=LF 

-MESG9 

(SP)+,R5 ;LOCATE THE READIN LINE 

(R5) “NOT CORRECT INPUT LINE FORMAT 
2$ :BRANCH IF NOT 
$CDW2,R1 :LOCATE THE SYSTEM ADDRESS TABLE 
#177760,R1 :LEFT ON 4 BITS 
R1 :ADJUST THE INDEX VALUE 
R} :FOUR WORD INDEX VALUE 
SYSADR(R1),RMADR ;:LOAD THE SYSTEM ADDRESS 
SYSADR+2(R1),RMVEC :LOAD THE SYSTEM INTERRUPT VECTOR 
PC .RMINIT s INITIALIZE THE SYSTEM 
#~1, SAVEFG 7SAVE ALL RH/RM REGISTER 
#-1, SEEKFG =DON'T DO ANY IMPLY SEEK 
DRIVE .RO :RO=PHYSI CAL DRIVE g 
DRVSTA(RO) ON-LINE ? 

$ *BRANCH IF NOT 
DRVTYP(RO) 7CHECK DRIVE TYPE 
“BR IF NOT AN RMOS/3/2 

47 ,DTYP :WHAT WAS FIRST DRIVE TESTED ? 
3$ *BRANCH IF AN RMO2 OR RMO3. ELSE 
~ Sadat | : SEE IF brive IS STILL AN RMOS. 





SEO 0054 


0041 


— CZRMTBO RMOS/3/2 DR CMPT TST 


_ GET VALUE FOR SOF 


——_— _———_— <- — 


535 011334 
536 011336 
537 011344 
538 011346 
539 011352 
540 011356 
541 
542 011362 
543 011366 
544 011372 
545 011374 
546 
547 
548 
549 
550 
551 
552 
553 
554 
011374 
011376 
555 011404 
556 011412 
557 011416 
558 011422 
559 011426 
560 011432 
561 011440 
011 
563 011454 
011462 
565 011470 
566 011474 
567 011502 
568 011506 
569 011512 
570 011514 
571 011516 
$72 011522 
573 011524 
574 011530 
575 011534 
576 011540 
577 011542 
578 011550 
579 011554 
580 011556 
581 011360 
582 011564 
583 011566 
584 011572 
585 011576 
586 011602 
587 011604 
588 011612 
589 011616 


TWARE SWITCH REGISTER 


. 
00 4-APR-81 18:12:15 PAGE 9-11 


MACRO VO4. 
BR 4$ ;ERROR ENCOUNTERED 
030216 38: CMPB #7 ,.DRVTYP(RO) ;SEE IF DRIVE IS STILL AN RMO2 OR RMO3. 
BNE 6$ “BR IF YES 
4$: TYPE -SCRLF 7 CRLF 
TYPE ,NOTST : CANNOT SELECT RMO3/2°S AND RMOS'S TOGETHER 
JMP @RSTART ; JUMP TO RESTART 
S$: TYPE -SCRLF 7 CR-LF 
TYPE ;MESG10 zDRIVE NOT READY 
6s BR TS71 ; TRY AGAIN 


000002 


000002 
001372 


TEST 2 

:BASIC READ AND WRITE TEST 

sALL LOGICAL DRIVE ACCESS CYLINDER 620 

sAND SECTOR ADDRESS IS CORESPONDING TO THE LOGICAL DRIVE # 
sEACH LOGICAL DRIVE PERFORM WRITE AND WRITE CHECK ON ALL TRACKS, 
;(TRKO = TRK4 ON AN RMO3/2 AND TRKO = TRK18 ON AN RMOS) 


RARER EKARAEEREEAAEEEAEEEREERERAERERKEEKEKKKKKKEE 


S12: SCOPE 
::D0 1 rETERATION 


MOV “TST =LOAD TEST NUMBER 

MOV #STACK,SP : INITIAL THE STACK POINTER 

MOV #FMTDPB,RO :DPB BLOCK ADDRESS 

MOV $CDW1 RI sADDRESS OF THE LOGICAL DRIVE BLOCK 
MOVB  ODRIV ;PHYSICAL DRIVE # 


LOAD THE SECTOR #,FROM THE LOGICAL DRIVE NUMBER. 
LOAD CYLINDER NUMBER 


iL ADDRESS 
#RM.REG. 14(RO) ZADDRESS 10 SAVE ALL RH/RM REG'S 
CLRB  $TRK(RO) T FROM TRACK 0 
MOVB INTDAT SCOMND CRO) : WRITE DATA COMMAND 
JSR PC ,F ILBUF FILL THE BUFFER WITH STANDARD PATTERN 
2$: JSR RO,RMOS5 :CALL THE DRIVER 
FMTDPB 
BR 2$ :BRANCH IF NOT QUEUE SUCCESSFULLY 
3$: TST FMTDPB+16 
BEQ 3$ NOT DONE 


:BRANCH IF 
:RO=FMTDPB ADDRESS 
CHECK THE —_ 


MOV #FMTDPB RO 
JSR PC ,PROCESS 


TST 16(RO) =ERROR FLAG SET 

BM I 6$ “BRANCH IF SO 

MOVB $ #WCKD,SCOMND(RO) :CHANGE TO THE WRITE CHECK DATA COMMAND 
4$: JSR RO, RMOS :CLLL THE DRIVER 

FMTDPB | 

BR 4$ : :BRANCH IF NOT QUEU SUCCESSFULLY 
S$: TST FMTDPB+16 =D 

BEQ 5% ‘BRANCH IF NOT DONE 

MOV #FMTDPB,RO 

JSR PC PROCES : PROCESS IF ANY ERROR HAPPENS ? 

TST 16(RO) “ERROR FLAG SET 

QM] x “BRANCH iF sO 

MO AWRIDAT, SCOMND(RO) | sRESET TO WRITE DATA COMMAND 


VB 
INCB $TRK (RO) REMENT TO THE ~~ TRACK 
CMPB $TRK(RO), TRKLMT ‘ALL TRACKS DONE ? 


SEQ 0054 


o 
Nm 


SN NSN WO 
2a2eSh 


3 


oOoooecoeo BOCOOCOCOCOOCOOC°OoO 
™N 
mn 
rx 


owed eed ed ed eed eed ed od co ee ce ee eed ced ed eed aed ed od 


oo 
NeSSIRS 


644 012044 


TWARE 


ZRMTBO RMO5/3/2 DR CMPT TST 
AL OF SWITCH REGISTER 





D5 
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000002 
000006 
000014 
000004 


001354 
001362 


6$: 


2$ 3NO 

TST3 ;BRANCH TO NEXT TEST 
,SCRLF ; CRLF 

»HALT1 

HAL TX 

ARSTART ; JUMP TO RESTART 


;TEST 3 
;WRITE 7 ZONES FOR WRITE TEST IN PASS 2 
; WRITE a 5 FOR READ TEST IN oneee 


LOGICAL DRIVE # 
ADDRESS OF LOGICAL DRIVE HISTORY BLOCK FILE 


SYS 

PHYSICAL DRIVE #4 OF THIS LOGICAL DRIVE 
ENTRY OF TABLE-D 

ONE C 

DELTA CYLINDER C 


COUNT 
ENTRY POINTER OF TABLE-D, CANNOT BE DESTORYED. 
ADDRESS OF FMTDPB 


RAAT EARAAEARAEAAEREAEEEEEREEEEREKRKKKEKRKEKKKKKRKHKKH 


1873: 


2$: 


3$: 


4$: 


SCOPE 





#1,$TIMES :;D0 1 ITERATION 
#3, 1STNM ;LOAD THE TEST NUMBER 
A#STACK , SP s INITIAL THE STACK POINTER 
#LOGO,R4 ADDRESS OF a 
SDEVM,RO sLOGICAL DRIVE # 
$ ;BRANCH IF LOGICAL DRIVE 0 
#16. ,.R4 sEACH LOGICAL DRIVE a 16 BYTES IN THE TABLE 
RO :DECREMENT THE DRIVE # COUNT 
1$ ;BRANCH ,UNTIL THE ENTRY IS LOCATED 
R4 PACK ;SAVE THE TABLE-D ENTRY IN PACK 
;SET UP THE FMTDPB BLOCK 
#FMTDPB RO SADDRESS OF FMTDPB 
DRIVE, (RO) ;PHYSICAL DRIVE NUMBER 
MWRTDAT , SCOMND sWRITE DATA COMMAND 
FER, $BUF (RO) ;BUFFER ADDRESS 
WRM.REG,14(RO) ;ADDRESS TO SAVE ALL RH/RM REG'S 
4-256. »$uRDM DM(RO) :NEG WORD COUNT 


> LOGICAL DRIVE # 
INDEX 


R1 

PSEUDO(R1).R4 “LOAD THE DATA PATTERN 

SBUF (RO) .R2 “BUFFER ADDRESS IN R2 
:PO WORD COUNT 


#256. 
R4,(R2)+ “FULL THE BUFFER WITH SIGLE WORD PATTERN 
R3 >DECREMENT THE WORD COUNT 

3$ “BRANCH, UNTIL IT IS FULL 

~(SP) :DUMY PAIR OF ZONE COUNT 


~(SP) ; DUMY a CYLINDER NUMBER 


:ZONE COUN 
#112. ,-(SP) :STARTING CYLINDER NUMBER 
#7, CMCNT : ZONE COUNT 
CMCYL >STARTING CYLINDER NUMBER 
#16. ,CMSEC “DELTA CYLINDER NUMBER 
#FMTDPB,RO -RO DPB ADDRESS 


SE ES ET 


SEQ 0055 


0043 


CZRMTBO RMOS/3/2 DR CMPT TST 
GET VALUE FOR SOF TWARE 


645 012050 
646 012054 
647 012062 
| 648 012066 
| 649 012072 
650 012076 
| 651 012100 
652 012102 
| 653 012106 
654 012110 
| 655 012114 
| 656 012120 
657 012124 
658 012126 
659 012134 
660 012142 
661 012144 
662 012150 
663 012154 
664 012162 
665 012164 


679 012250 
680 
681 012252 


012274 000004 
012276 
694 012304 
695 012312 0127 
696 012316 
697 012324 
698 012330 104401 
699 012334 


104401 


001324 
001356 
000011 


000010 
031062 
004524 


06 
017452 
6 


& § 
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SWITCH REGISTER 


000012 


000010 
000010 


001372 


000012 
001356 


001176 
001340 


016002 


5$: 


6$: 
7$: 


8$: 


PACK ,R4 :R4 ENTRY TO TABLE-D 
CMCYL,$CYL(RO) STARTING CYLINDER 

$T :STARTS FROM TRACK 0 
(R4),$SEC(RO)  ;LOAD SECTOR NUMBER FROM TABLE-D 
RO,RMOS ;CALL THE DRIVER 


7$ ‘BRANCH IF QUEU IS NOTSUCCESSFUL 
FMTDPB+16 

8$ ‘BRANCH IF NOT 

#FMTDPB,RO 

PC,PROCES eens TO CHE CK IF ANY ERROR 
16(RO) ;ERROR FLAG SET ? 

9$ “BRANCH H IF SO 

#16. ,$SEC (RO) sWRITE TWO SECTORS ON ONE CYLINDER 
#31.,$SEC (RO) ;ALL DONE-TWO SECTORS 

7$ ;BRANCH H IF NOT 

(R4) , SSEC (RO) ;RESTORE SECTOR & 

STRK (RO) : INCREMENT 70 NEXT TRACK 

STRK(RO), TRKLMT “LAST TRACK 

7$ 7NO, THEN N BRANCH 

STRK (RO) “RESTORE TO TRACK-0 

SCYL (RO) : INCREMENT CYLINDER NUMBE 

RS : INCREMENT TABLE-D ENTRY 

CMSEC : DECREMENT THE DELTA CYLINDER COUNT 
6$ HM IF NOT END OF THIS BLOCK 
#112.,$CYL (RO) ; INCREMENT THE CYLINDER NUMBER TO NEXT ZONE 


SCYL (RO) ,CMCYL gan NITAIL THE STARTING CYLINDER IN THE BLOCK 
CMCNT :DECREMENT THE ZONE COUNT 
4$ :LOOPING IF NOT END OF ZONE 


(SP)+, CMCYL [LOAD NEW PAIR OF STARTING CYLINDER 
(SP)+,CMCNT * AND ZONE COUNT 

CMC YL :NOT “ YET ? 

4$ H IF NOT 

CMCNT “ BRANCH IF NOT END 

4$ ;LOOPING BACK 

TST4 ;BRANCH TO THE NEXT TEST 
, SCRLF ;CR-LF 

“HALT 2 

»HAL TX 

@RSTART ; JUMP TO RESTART 


sTEST 4 
sUPDATE THE PARAMETERS ,$CDW1,$DEVM,ASSGN1 
sDIRECT THE OPERATOR TO DISMOUNT PACK AND LOAD TO OTHER DRIVE 


:$CDW2,DRIVE ARE CHANGED BY TEST ONE ONLY AFTER THE TEST LOOPING TO TESTI 


SL PER AREKAEAAERRERAAAEAAEAAEAAREREAAAAAEAERARAAAARAAKEEAEAAARAAAAEERAREARRERE 


S14: 


SCOPE 


#1,$TIMES ‘oe 1 ITERATION 
#4, TSTNM LOAD THE TEST NUMBER 
HSTACK,SP “LOAD THE STACK POINTER 
#IDLEX,@RMVEC RESET THE INTERRUPT VECTOR 
@RMVEC +2 :CLEAR THE INTERRUPT LEVEL 
,SCRLF CR -LF 

“MESG12 ;UNLOAD DRIVE 


CZ7RMTBO RMOS/3/2 DR CMPT TST 
GET VALUE FOR SOF TWARE 


Se <ceeneeenee - 


— 


g 
2° 
mn 
ei 
oO 


~wwNS ~w ~w 
S8SSsess3 
OOOQVCOCOCOOCOCOCCOOCOoO 
PUPINMINININI NNN Ny Nonny 
Se 
So 79 FWWNIO 


MM 
a 
ant 

MO 


ee ee ee ee 
& 
RL 
Nm 


UEWN— © 


71 


744 

745 012472 
746 012476 
747 012504 
748 012512 
749 012520 
750 012526 
751 012532 
22¢ 012540 
753 012544 
754 012550 
755 012554 
756 012560 


104401 
013746 
104403 

001 


006302 
016237 
006 





001274 
601224 


042310 
000001 


001270 


002010 


004444 
001270 


002010 


012460 
611020 


002012 
017146 


, Se 
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SWITCH REGISTER 


001272 


030326 
015566 


1$: 


2$: 
3$: 


4$: 


S$: 


; XPASS2 


Be Be Se Be Be Be Be 


XPASS2: 


1$: 


1 
R1,ASSGN1 
4$ 

Re 


R2,$DEVM 
(SP)+,R5 
(R5) 

4$ 
ASSGN1 
5$ 
MPASS2 
TST1 


i SYS“NAME(A = H) 
*PHYSICAL DRIVE @ 


sLOCATE THE CORESPONDING BIT MAP 
;BRANCH IF LOCATED 
sLOCATE NEXT DRIVE 


“NEXT DRIVE # 
i LOCATE THE BIT MAP 


ASSIGN er LOGICAL DRIVE FOR PASS 1 


;NO MORE DRIVES 
;GET NEXT LOGICAL DRIVE # 
; NDE xX 


R2 ; 
BLKADR(R2) , $CDW1 
R sRESTORE 

;LOAD THE NEW LOCICAL DRIVE #4 


;LOAD THE NEW DPB ADDRESS 


sWAIT UNTIL IT IS DONE 


sLOCATE THE INPUT . INE 
; TERMINATOR ? 

:BRANCH IF NOT 

sOTHER DRIVES ? 

:BRANCH IF MORE  aieeing IN TEST 


:BRANCH TO PASS 
;JUMP TO TEST 1 


INITILIZE FOR PASS 2 TEST 


SDE VM 
BLKADR , $CDw1 


#°A, $CDW2 
SYSADR 


,RMADR 
SYSADR+2 ,RMVE C 
Dw 


ADDRESS OF - CURRENT rene. DRIVE HISTORY FILE 
SYSTEM NAME A THROUGH H 

CURRENT LOGICAL DRIVE # © TO 15. 

ASSIGNED LOGICAL DRIVE FOR PASS 2 

ASSIGNED LOGICAL DRIVE 

PHYSICAL DRIVE # OF CURRENT RH/RM SYSTEM 


SANYTHING IN TEST FOR PASS 2 
:YES,THEN GO ON 
: JUMP TO END OF PASS 2 


: START FROM LOGICAL DRIVE 0 
;ADDRESS OF LOGICAL ~~ DRIVE 0 
;LOAD SYSTEM 

;LOAD SYSTEM-A ADDRESS TO DRIVER 
sLOAD SYSTEM-A VECTOR TO DRIVER 
:R1=ADDRESS OF LOGICAL BLOCK 
;RESET THE INTERRUPT VECTOR 
;CLEAR THE INTERRUPT LEVEL 


:RESEY THE NOT COMPATIBLE FLAG 
*START THE PASS 2 
ON 


SEQ 0057 


G 5 
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C045 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 005 
757 012564 104401 041776 TYPE »MESG1 ; SUB“SYSTEM 
758 012570 104401 0462644 TYPE ,QUOTM :TYPEe ‘‘" QUOTAT JON MARK 
759 012574 104401 001274 TYPE ,$CDW2 :SYS=NAME(A TO H 
740 012600 104401 042644 TYPE ,QUOTM : TYPE ‘‘" QUOTATION MARK 
| 761 012606 111137 001224 MOVB (R1) ,DRIVE LOCATE THE PHYSICAL DRIVE # 
762 012610 104401 001207 TYPE ,SCRLF *CR= 
| 763 012614 104401 042045 TYPE »MESG4 ‘ MOUNT PACK ON DRIVE 
764 012620 104401 001274 TYPE ,$CDW2 SYSTEM NAME 
765 012624 111146 MOVB (R1) ,=(SP) 
| 766 012626 104403 TYPOS 
| 767 012630 BYTE 1 
| 768 012631 COO .BYTE O 
| 769 012632 104401 042752 TYPE ,BLNKS1 : TYPE 1 BLANK 
770 012636 104401 042073 TYPE »MESG8 “AND LOAD 
771 012642 104401 001207 TYPE »SCRLF :CR=LF 
ar 012646 104401 042106 TYPE »MESG9 ‘TYPE <CR> WHEN DRIVE IS READY 
774 012652 104411 2$: RDLIN 
775 012654 012602 MOV (SP)+,R2 :LOCATE THE KEAD IN LINE 
776 012656 105712 TSTB (R2) ; CARRIAGE RETURN ? 
777 012660 001374 BNE 2$ :BR IF NO 
778 012662 004737 030334 JSR PC,RMINIT 
779 012666 012737 177777 030264 MOV #-1, SAVEFG ;SAVE ALL RH/RM REGISTERS 
780 012674 012737 177777 030266 MOV #-1,SEEKFG :DON'T DO IMPLY SEEK 
781 012702 013700 001224 MOV DRIVE ,RO :LOAD THE PHYSICAL DRIVE NUMBER 
782 012706 105760 030206 TSTB DRVSTA(RO) :DRIVE EXISTS AND ON-LINE ? 
783 012712 003421 BLE 4$ “BRANCH IF NOT 
784 012714 105760 030216 TSTB DRVTYP(RO) sCHECK DRIVE TYPE 
785 012720 003416 BLE 4$ :BR IF NOT AN RMOS/3/2 
786 012722 116037 030216 001402 3$: MOVB DRVTYP(RO) .DTYP :GET DRIVE TYPE TO BE TESTED 
787 012730 012737 000022 001372 MOV #18.,TRKLMT :GET LAST TRACK FOR AN RMOS 
12736 122760 000007 030216 CMPB #7,DRVTYP(RO)  :1S DRIVE AN RMOS ? 
789 012744 001412 BEQ 5$ :BR IF YES 
790 012746 012737 000004 001372 MOV #4, TRKLMT :GET LAST TRACK FOR AN RMO3/2 
fad 012754 000406 BR 5$ 
793 912756 104401 001207 4$: TYPE ,SCRLF > CR=-LF 
794 012762 104401 042142 TYPE »MESG10 :DRIVE IS NOT READY 
795 012766 000137 011004 JMP ENDX1 
las 012772 S$: 
798 : $CDW1 = ADDRESS OF CURRENT LOGICAL DRIVE BLOCK. ONLY CHANGED BY TST9 
799 : $CDW2 = SYSTEM-NAME, ONLY CHANGED BY TEST 5 
800 . SDEVM = CURRENT LOGICAL DRIVE # 
801 . ASSGN2 = ASSIGNED LOGICAL DRIVE'S BIT MAP FOR PASS 2 
802 : DRIVE = PHYSICAL DRIVE & 
ro : ASNLST = ASSIGNED LOGICAL DRIVE IN THE TEST 
ane :IN TEST 5 DIRECT OPERATOR TO CHANGE, LOAD THE PACK 
CETERA AAKRREREAAEEKKERARAARAEERERERAAARAEAEAERKERE ERE ERE EE 
012772 000004 TSTS: SCOPE 
012774 012737 000001 001176 MOV #1,STIMES :;D0 1 ITERATION 
808 013002 012737 000005 001340 MOV #5, TSTNM LOAD THE TEST NUMBER 
809 013010 012706 001100 MOV #STACK,SP TOAD THE STACK POINTER 
810 013014 023737 001272 004444 CMP $CDW1,BLKADR “LOGICAL DRIVE 0 
817 013022 001550 BEQ 6$ * THEN EXIT 


—— ee ee me ee - ee | re eee . —— i = 


CZRMTBO RMOS/3/2 DR CMPT TST 
GET VALUE FOR SOr TWARE 


ete 


OO@nNOW 
OoOoo0oo 
ad aud and aah xd aad 


stototas 


SERRE 


elelelelelelelalelalea) 
ad ad bad ad ad ad ed edad ad od 


WNI'AWWANIWNAWAIINAA Ws 


Co oo 

BOVVLORRVR 
ee ee we ee eed eed ed ed 
BER WURR==OIS 


We & 


840 013174 
841 013200 
842 013204 
843 013210 
B44 


845 013214 


857 
868 073332 


137 


104401 


001272 
600014 


000014 
017444 
015250 
001274 


177760 


177777 


030216 
000007 
000007 


000007 
001207 
043556 
166046 


001207 


H 5 
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SWITCH REGISTER 


001274 


001274 
015252 


030324 
030326 


030264 
030266 


001402 
030216 


030216 





1$: 


2$: 


3$: 
4$: 


5$: 


$CDW1 RI s;ADDRESS OF Ua. HISTORY FILE 
SSYSNM(R1) ,$CDW2 7ON THE SAME SUB~SYSTEM 

1$ ; THEN DON'T UPDATE SYSTEM ADDRESS 
SSYSNM(R1) ,$CDW2- 

MIDLEX,@RMVEC ;RESET THE INTERRUPT VECTOR 
@RMVEC +2 ;CLEAR THE INTERRUPT LEVEL 

$CDW2 ,RO ;LOCATE SYSTEM ADDRESS TABLE 

RO sADJUST FOR INDEX FORM 0 
ties ;LEFT ON FOUR BITS 


RO : INDEX FOR TWO WORD 
SYSADR(RO) ,RMADR ;SYSTEM ADDRESS 
SYSADR+2(RO),RMVEC :SYSTEM INTERRUP VECTOR 


,SCRLF = CRL 

»MESG14 “START THE PASS 2 

»MESG6 7 ON 

-MESG1 4 YSTEM 

,QUOTM yPe '’"" GUOTAT ION MARK 

,$CDW2 fh a, TO H 

,QUOTM :TYFE °°" GUTAT ION MARK 

(R1) ,DRIVE “LOCATE THE PHYSICAL DRIVE # 

,$CRLF : CR=LF 

»MESG4 “MOUNT PACK ON DRIVE 

,$CDW2 : SYSTEM NAME 

(R1),-(SP) 

1 

0 

-BLNKS1 : TYPE 1 BLANK 

»MESG8 : AND LOAD 

,SCRLF : CR-LF 

»MESG9 : TYPE <CR> WHEN DRIVE IS READY 

(SP)+,R2 sLOCATE THE READ IN LINE 

(R2) : CARRIAGE RETURN ? 

od :BR IF NO 

PC ,RMINIT 

#-1, SAVEFG ;SAVE ALL RH/RM REGISTERS 

#~-1,SEEKFG ;DON* T DO IMPLY SEEK 

DRIVE ,RO LOAD THE PHYSICAL DRIVE NUMBER 

DRVSTAC(RO) ‘DRIVE EXISTS AND ON-LINE ? 
=BRANCH IF NOT 

DRVTYP(RO) ; CHECK DRIVE TYPE 

5$ F NOT AN RM0S/3/2 

#7. .DTYP “WHAT WAS FIRST DRIVE TESTED ? 
“BRANCH IF AN RMO2 OR RMO3, ELSE 

1 aS TYPLRE : SEE IF Dae Is STILL AN RMOS. 

4$ S ERROR ENCOUNTERED 

#7,DRVTYP(RO) ;SEE IF DRIVE IS STILi AN RMO2 OR RMO3. 

6$ ; F YES 

»SCRLF > CR=LF 

»NOTST : CANNOT SELECT RMO3/2'"S AND RMOS'S TOGETHER 

@RSTART : JUMP TO RESTART 


OD ES A AE EL NF — _ ~— +< - - - 


0047 


_- SS me 


CZ7RMTBO RMOS/3/2 DR CMPT TST 
GET VALUE FOR SOFTWARE SWITCH REGISTES 


869 013336 
870 013342 


871 


013544 


013510 


104401 
000613 


042142 
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001176 
001340 


000004 
000002 
000012 
000006 
000014 


TYPE -MESG10 DRIVE IS NOT READY 
BR ists ; TRY AGAIN 
6$: 
DRIVE = PHYSICAL DRIVE NUMBER 
$CDw1 = DPB BLOCK OF THIS LOGICAL DRIVE 
: SDEVM = LOGICAL DRIVE # 
$CDW2 = SUB-SYSTEM 
; RMADR = SUB-SYSTEM BASE REGISTER ADDRESS 
; RMVEC = SUB-SYSTEM INTERRUPT VECTOR 


:THE ABOVE PARAMETERS CANNOT BE MODIFIED BY THIS TEST (TST6) 
;THE FOLLOWING REG'S ARE ASSIGNED AS: 

; RO = ADDRESS OF DPB FIELD INTO DRIVER HANDLER=FMTDPB 

; R1 = ADDRESS OF THE HISTORY FILE BLOCK OF THE LOGICAL DRIVE=$CDw! 


:IN TEST 6, EACH LOGICAL DRIVE WRITES 7 CYLINDERS ON EACH TRACK WITH 
;A UNIQUE DATA PATTERN. THESE 7 CYLINDERS HAVE BEEN WRITTEN BY OTHER 
:DRIVES iN PASS 1, 

:THEN, THIS LOGICAL DRIVE EXECUTES ‘WRITE CHECK DATA’ TO SEE IF THIS 
:LOGICAL DRIVE CAN OVER-WRITE ALL DATA WRITTEN BY OTHER DRIVES. 


THESE 7 CYLINDERS ARE SPECIFIED _AS SDEVM, SDEVM+128, SDEVM+256, SDEVM+38<4, 
:SDEVM+512, SDEVM+640 AND SDEVM+768. 


: THE OVER-WRITE TEST IS PERFORMED WITH OFFSETS IN BOTH DIRECTIONS. 


-REERAREREAAEAARERAEAAREATARETEAAAAERAARAEAREREEAEEREEAEERAEEEAARAKRAKAERAE 


S16: SCOPE 
MOV #1, STIMES :;D0 1_ITERATION 
MOV #6. TSTNM =LOAD TEST NUMBER 
MOV #STACK,SP : INITIAL THE STACK POINT 
MOV #HOVWNO.R3 :1 ST ADDRESS TO CLEAR 
MOV #RDNO RS “LAST ADDRESS+2 
1$: CLR (R3)+ :RESET ALL SCORE BOARD 
CMP R4,R3 sALL LOCATIONS ARE CLEARED ? 
BH] 1$ -BRANCH IF NOT 
MOV #FMTDPB,RO :SET UP STARTING ADDRESS OF DPB 
MOV $CDW1 Ri *HISTORY FILE BLOCK 
MOVB DRI (RO) LOAD THE PHYSICAL DRIVE 


- STAR SECTOR = 0 
#WRTDAT , SCOMND (RO) WRITE DATA COMMAND 


MOVB 
MOV SDEVM,$CYL(RO) ;:LOAD THE STARTING CYLINDER 
MOV #BUFFER,$BUF (RO) :LOAD THE BUFFER ADDRESS 
MOV #RM.REG.14(RO) ;:REG'S SAVE ADDRESS 
MOV SDEVM,R2 “LOCATE THE DATA PATTERN 
ASL R2 “WORD INDEX 
MOV PSEUDO(R2).R2  :LOAD R2 WITH THE DATA PATTERN POINTER 
MOV SBUF (RO) .R3 “BUFFER ADDRESS 
MOV #8192. RS “WORD COUNT 
2$: MOV R2, (R3)+ “FILL THE BUFFER 
DEC Ré “DECREMENT WORD CTR 
BNE 2$ “BRANCH IF NOT DONE 


EE EE ES ES EE SS EEE SE ee Senne Ge eee -- es 


5—£Q 0060 


ee 
_ 
tis —_e 


974 013762 
975 013764 
976 013772 
977 014000 
979 
980 


CZ7RMTBO RMOS/3/2 DR CMPT TST 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


031062 
004524 


004506 
017452 
00001 


030334 
177777 
177777 
014614 
000022 


000026 
000022 
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030264 
030266 


001372 


000012 
000012 


030264 
030266 


000010 
000004 


;(7 ZONES ON EACH PACK) 


3$: 


4$: 


22$: 


LOOP : 


3$: 
4$: 


RO,RMOS 

3$ | 
FMTDPB+16 
4$ 
#FMTDPB,RO 


PC PROCES 
16\RO) 


$TRK (RO) 
SERK (RO), TRKLMT 


$TRK (RO) 


#128. ,$CYL (RO) 
. »$CYL (RO) 


OF F COD 
#FMTDPB,RO 


$SSEC (RO) 

SDEVM,SCYL (RO) 

#WCKD,, SCOMND (RO) 

#BUF FER, $BUF (RO) 

#RM.REG, 14 (RO) 
2RMO5 


1$ 
FMTDPB+16 


#FMTDPB RO 
PC ..PROCES 
PC ,LABAD 
16(RO) 
3$ 

C .RMINIT 


p 
#-1, SAVEFG 
eters 


PC, ATA >, 
(RO) 


a 
SRMDA(RO), sseccrtDe 
SRMAC (RO) ; $WRDM(RO) 


Ayr THE DRIVER 
ARAMETER BLOCK 

‘BRANG: IF QUEUE FAIL 
WRITE COMMAND DONF ? 

NO, THEN 


WA] 
PROCESS F 


;ERROR FLAG 
;BRANCH IF NOT 
; INITIAL THE DRIVE 


;BRANCH IF NONE 
: INITIAL THE SYSTEM 


;NEXT TRACK 
;LAST TRACK 


:SET NEGATIVE OFFSET DIRECTION FLAG 


AIT 
ANY ERROR 
SEY ? 


IS DONE ? 
CH 


F NOT 


RESET THE FMTDPB BLOCK AND EXECUTE WRITE-CHECK COMMAND TO DETECT ANY 
;COMPATIBLE PROBLEM. THE FOLLOWING SUBROUTINE ARE CALLED SCORE, OFFST 


;RO=FMTDPB ADDRESS 


START FROM SECTOR O,TRACK 0 
NUMBER 


; STARTING C 


;TOTAL ¢ CYLINDERS ON ONE TRACK 
sWRITE-CHECK-DATA COMMAND 
sRESET BUFFER ADDRESS 

zADDRESS TO SAVE RH/RM REG‘S 

;CALL THE R 


; LOAD 
:REPORT IF 


;NOT UPDATE 
; INCREMENT 
: WORD - ——_ 


; (NEGATIVE) AND OFFCOD = 1(POSITIVE). 


SS ee eek 


YLINDER 


IF NOT 
THE gg lo BLOCK ADDRESS 
LOCATE STARTING AND ENDING SECTORS 
Y ERROR ? 


THE SCORE 

SCORE 
=Q0/ 

WORD COUNT 


IF IS 0 
NUPBATE STARTING SECTOR 
:UPDATE WORD COUNT 
;TO READ THE REST SECTORS 


>THE FOLLOWING CODING TEST THE COMPATIBLE PROBLEM IN OFFSET MODE OFFCOD = 


0 


SEQ 0061 


! 


CZRM 


«GET 


TBO RMOS/3/2 DR CMPT TST 
VALUE FOR SOF TWARE 


981 
982 014002 
01 


990 

991 014052 

993 014054 
014060 


1026 014240 


104 
1041 014244 010146 
1042 014246 010246 


014614 
000022 


000026 
000022 
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SWITCH REGISTER 


S$: MOV #FMTDPB.RO ‘RESET THE DPB BLOCK 
000004 MOV -B192° SSWRDM(ROS ;FULL TRACK WORD COUNT 
CLRB  $SEC(ROS sRESET TO SECTOR no, TRACK NOT CHANGED 
000006 MOV #BUF FER, $BUF (RO) :BUFFER ADDRESS 
000014 MOV #RM.REG,14(RO) ADDRESS TO SAVE ALL RH/RM REG'S 
6S: JSR RS, OFFST sCALL OFFSET 
BR sBRANCH TO NEXT CYLINDER, IF OFFSET FAILS 
JSR PC MAKEUP ; CALL WRITE CHECK IN OFFSET MODE 
7$: TST FMTDPB+16 OFFSET WRITE CHECK IS DONE ? 
BEQ 7$ “ BRANCH IF NOT 
MOV #FMTDPB,RO :LOAD THE DPB ADDRESS 
JSR PC PROCES :REPORT , IF ANY ERROR 
JSR PC, LABAD “LOCATE § TARTINF AND ENDING SECTORS 
TST 16(RO) “ANY ERROR ? 
BPL 8$ :BRANCH, IF NONE 
JSR PC ,RMINIT * INITIAL THE SYSTEM 
030264 MOV #~1, SAVEFG 
030266 MOV #-1, SEEKFG 
RR 10$ :NOT UPDATE THE SCORE 
8$: JSR PC, SCORE “UPDATE THE TEST SCORE 
9$: TST SRMWC (RO) : WORD CTR = 0? 
BEQ 10$ WORD CTR = 0 BRANCH TO NEXT oP 
000010 MOVB SAMDACRO) .SSEC(AD) :UPDATE THE NEW STARTING ADDRESS 
000004 MOV SMC RO), SWRDM(RO) :UPDATE THE NEW WORD COUNT 
000012 10$: ADD #128.,$CYL(RO) ;ADJUST CYLINDER ADDRESS TO NEXT ZONE 
000012 CMP #783. ,$CYL (RO) TALL 7 ZONES HAVE BEEN TESTED 
BLO :BRANCH, IF ALL DONE 
JMP Loore :TO NEXT WRITE CURRENT ZONE 
000012 11%: MOV SDEVM,SCYL(RO) :RESET CYLINDER ADDRESS 
INCB  ~—- $TRK RO) : INCREMENT TO NEXT TRACK 
001372 CMPB = $TRK(RO),TRKLMT :ALL TRACKS ARE TESTED ? 
BGT 12$ [BRANCH IF ALL DONE 
JMP 2 =TO NEXT TRACK 
12$: TST OFF COD -FINISHING TEST THE POSITIVE OFFSET ? 
BNE $ “BRANCH IF ALL 
004504 MOV #1, OF FCOD :SET POSITIVE OFFSET DIRECTION FLAG 
JMP OOP1 *RESTART LOCATION 
13$: JMP TST? :BRANCH TO NEXT TEST 
sOFFST ROUTINE 
OF FSET THE HEAD IN THE DIRECTION TOWARD SPINDLE OR AWAY FROM THE SPINDLE 
; OFFCOD = 1, TOWARD SPINDLE (POSITIVE) 
: OFFCOD = 0. AWAY FROM SPINDLE (NEGATIVE) 
; DRIVE = PHYSICAL DRIVE NUMBER 
; 0 = DPB ADDRESS 
: RETRY = 3 TIMES 
CALL 
; JSR RS,OFFST 
: RET1 OFFSET FAIL RETURN ADDRESS 
; RET2 OFFSET SUCCESSFUL RETURN 
OFFST: MOV R1,-(SP) :SAVE ALL REGISTERS 


MOV R2,~(SP) 


ee re ee ee ——_——— ee ee ee ee ee 


SEQ 0062 


329050 


| CZRMTBO RMOS/3/2 DR CMPT TST 
| GET VALUE FOR SOFTWARE SWITCH REGISTER 


1043 014250 
1044 014252 
004506 
000002 
0 001224 

000117 


1 
60 000002 
37 031062 


304 
306 005737 004524 


100461 

013746 177776 

56 014322 012737 000240 177776 
2700 06 


000000 000001 
1070 014426 112760 000115 000002 
004037 


1073 014442 000406 
1074 014444 005737 004524 
1075 014450 001775 
1076 014452 100402 
1077 014454 062705 000002 


2$: 


3$: TST 


6$: 


>MAKEUP ROUTINE 
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R3,-(SP) 
RL. =(SP) 
#FMTDPB,RO :RO DPB ADDRESS 
SCOMND (RO) ,-(SP)” E THE 1/0 COMMAND 
DRIVE, (RO) :LOAD T rt ORIVE NUMBER 

#117, Sc oMND CRO) | sRETURN TO CENTER COMMAND 
RO,RMOS “CALL THE DRIVE HANDLE 
6$ ;BRANCH IF QUEVE FAILS 
FMTDPB+16 “COMMAND DONE ? 

1$ *BRANCH IF NOT 
6$ “BRANCH IF ERROR EXIST 
QPS ,-(SP) *SAVE THE PSW 
#<5*32.>,a#PS LOAD PS 
#FMTDPB,RO :DPB ADDRESS 
RMADR RG :MUSS BUS ADDRESS 

"RI ‘DRIVE NUMBER 

R1,RMCS2(R OAD 


HE DRIVE Nu NUMBER INTO CONTROLLER 
SSEC (RO) .RMDA(R4) ; SECTOR AND TRACK NUMBER 
SWRDM(RO) ,RMWC (RG) COUNT 


S$BUF (RO) ,RMBA(R4) :BUFFER ADDRESS 

(SP) + S ;LOAD THE PSW BACK 

WB1T7, SFMT (RO) ;LOAD | THE OFFSET DIRECTION 
OF F COD NEG ? 


[BRANCH IF NOT 
MT (RO) =CHANGE TO OTHER DIRECTION 
OMMAND 


nie SCOMND(RO) :LOAD THE OFFSET C 
RO,RMOS :CALL THE DRIVE HANDLE 


6$ ;BRANCH IF QUEUE FAILS 

FMTDPB+16 7 OFFSET DONE ? 

3¢ :BRANCH IF SO 

6$ ;BRANCH IF ERROR 

#2,R5 sADJUST RETURN ADDRESS 

(SP) +, FMTDPB+S$COMND sRESTORE THE 1/0 COMMAND 
(SP)+,R4 sRESTORE REG 

(SP)+,R3 

(SP)+,R2 

(SP)+,R1 


EXIT 


: THIS sts A WRITE CHECK OR READ COMMAND TO THE SELECTED DRIVE 


7 IN OFF 
;AND SET UP THE 


“FOLLOWING PARAMETERS 


PHYSICAL DRIVE NUMBER 
FMTDPB 


' 
1 SECOND 


PC ,MAKEUP 


oe eet ~ ee Oe em ee ee —< = —- 


SEQ 0065 


051 


RS 
< 
> 


~~ — ..3- 4 ~ 
SRLEAKELLS FB 
EER eh EP ED EP EE 
or 
N 
, 


eleleleleleolela) 


kk kh th hh 8 3 oh 
Be hk an at an ela ee ee at at a ad eh ee DD Daido a aad ad ad ah wed 

S 

Fy 

Ww 

oO 


LA LA AN LALLA MINIMA Nm —sy 
SBOE RES SBIR s ew aos 
OS 
—_—) 
& 
oO 
—) 
Pe 


014614 
014614 
014616 
14620 

14622 

1141 014624 
1142 014632 
1143 014634 
1144 014642 
1145 014644 
1146 014650 
1147 014652 
1148 014656 
1149 014660 
1150 014664 
1151 014666 
1152 014672 


010146 


RMO5/3/2 DR CMPT TST 
UE FOR SOFTWARE SWITCH REGISTER 
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001340 


030310 


030246 


030176 
030270 


001360 
001340 


:MAIN PURPOSE ef THIS ROUTINE,TO EXECUTE A C 
THIS READ OR 


OMMAND WHILE ASSURE THAT 
WRITE=CHECK COMMAND BEING + iy IN OFFSET MODE. 


“ ROUTINES USED TD,SC,STO,( IN DRIVE HANDLER 


MAKEUP: MOV 


:SCORE ROUTINE 


R1,-(SP) 
Re "= (SP) 

R4.=(SP) 

#WCKD,R2 ;WRITE CHECK DATA IN TEST 6 
#10, TSTNM “ON TEST 8 ? 

1$ “BRANCH IF NOT 

WRDDAT, R2 sREAD DATA COMMAND IN TEST 8 
FMTDPB+16 ZCLEAR THE STATUS WORD 


R2,FMTDPB+$COMND ;LOAD THE COMMAND INTO PDB 
DRIVE ,DTUW sACTIVE DRIVE NUMBER 
#FMTDPB,TRNSWT ; TRANSFER —" FLAG 


DRIVE Ri “DRIVE 
. *RH/RM BASE ADORESS 
#1,DRVACT(R1)  <ACTIVE DRIVE FLAG 
R1 J INDEX 
#60000, TIMER(R1) : ONE SECOND TIMER 
R2,RMCS1(R4) ZISSURE WRITE CHECK OR READ COMMAND 
(SP) +,R4 sRESTORE REG 4, 1 
(SP)+,R2 
(SP) +_R1 
PC sEXIT 


; ROUT INE TO UPDATE THE TEST SCORE 
TABLEX ADDR 


CALL 


ESS A a al SCORE BOARD 


= LOGICAL 
= PHYSICAL DRIVE R 
= END SECTOR ADDRESS 
= START SECTOR ADDRESS 
PC, SCORE 
R1,-(SP) ::PUSH R1 ON STACK 
R2,-(SP) > :PUSH R2 ON STACK 
R3,-(SP) ;sPUSH R3 ON STACK 
R4.-(SP) >=PUSH R4 TACK 
CMSEC, STARSC : CORRECT s START AND STOP ADDRESSES 
#10. TSTNM “ON TEST 8 
:BRANCH IF NOT (MUST BE TEST 6) 
OFF COD “NEGATIVE OFFSET 
1$ “BRANCH IF NEGATIVE OFFSET 
#RDPO,R3 *SCORE BOARD ADDRESS 
#RDNO,R3 :SCORE BOARD ADDRESS 
OFF COD sNEGATIVE OFFSET 
3$ “BRANCH, IF NEGATIVE OFFSET 


SEQ 0064 
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0052 ' GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0065 
1153 014674 012703 002536 MOV #OVWPO,R3 :SCORE BOARD ADDRESS 
1154 014700 000402 BR 4$ 
1155 014702 012703 002056 3$: MOV #HOVWNO,R3 :SCORE BOARD ADDRESS 
1156 014 113702 004517 4$: MOVB §FMTDPB+$TRK.R2 =LOAD THE TRACK NUMBER 
1157 014712 005702 TST R2 “ON TRACK 0 
1158 014714 001404 BEQ 6$ :BRANCH IF IT IS 
1159 014716 000020 5$ ADD #16. ,R3 ;EACH SCORE BOARD TAKES 16 BYTES 
1160 014722 005302 ; DEC R2 ‘LOCATED ? 
1161 014724 001374 BNE 5$ ‘BRANCH IF NOT 
1162 014726 002054 6$ MOV R3, TABLEX :STORE THE TABLE STARTING ADDRESS 
1163 014732 010301 MOV R3-R1 sRE ASSIGN REGISTERS 
1164 014734 013702 001270 MOV $DEVM,R2 SLOGICAL DRIVE # 
1165 014740 013703 001360 MOV STARSC,R3 “START SECTOR 
1166 014744 116204 004424 MOVB INDST(R2),R4 = LOCATE THE STARTING POINT FOR SCORE BOARD 
1167 014750 304 ADD R3,R4 -UPDATE POINTER 
1168 014752 022704 000017 11$ C #15. RG *SHOULD POINTER BE ADJUSTED ? 
1169 014756 003 BGT 7$ :BR IF NO 
1170 014760 162704 000020 SUB #16. .R4 ZENTRY POINT AT THE SCORE BOARD 
1171 014764 000772 BR 11$ ; 
1172 614766 060401 7$: ADD R4,R1 
1173 014770 023703 001362 8$: CMP CMSEC,R3 “ENDING SECTOR REACHED ? 
1174 014774 002412 BL 9$ “BRANCH IF IT IS 
1175 014776 105221 INCB ~~ (R11) + :INC SCORE AND POINT TO NEXT LOGICAL DRIVE 
1176 015 52 INC RG : INCREMENT LOGICAL DRIVE # 
1177 015002 005203 INC R3 : INCREMENT SECTOR COUNT 
1178 015004 022704 000017 CMP #15. .R4 :TIME TO RESET TABLE ? 
1179 015010 002367 BGE $ *PRANCH IF NOT 
1180 015012 013701 002054 MOV TABLEX,R1 “RESET TABLE ADDRESS 
1181 015016 005004 CLR R4 “LOGICAL DRIVE 0 
1182 015020 000763 BR 8S _ LOOPING BACK 
1183 015022 9$: 


MOV (SP)+,R4 : POP STACK INTO R4 


015024 012603 MOV (SP) +,R3 :sPOP STACK INTO R3 
015026 012602 MOV (SP)+,R2 :3POP STACK INTO R2 
015030 012601 MOV (SP)+,R1 :zPOP STACK INTO RI 
015032 000207 , RTS PC 
;LABAD ROUTINE 
sLOCATE THE START SECTOR AND THE TERMINATE SECTOR OF THE PREVIOUS 
; OPERATION. 
: STARSC = STARTING SECTOR 
; CMSEC = ENDING SECTOR 


: INFORMATION FROM $SRMDA(FMTDPB) , $RMwC (FMTDPB) , $SEC (FMTDPB) 
|  $SEC (FMTDPB) , $WRDM(FMTDPB) 


LLLLO L000 LB RMMH~ 


- CALL 
: JSR PC,LABAD 
: RET 
015034 | ABAD: 
015034 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
015036 010246 MOV R2,-(SP) ; PUSH R2 ON STACK 
1200 015040 012700 004506 MOV #FMTDPB,RO -DPB ADDRESS 
1201 015044 116002 000026 MOVB = $RMDA(RO),R2 ;HARDWARE TERMINATING SECTOR 
1202 015050 042702 177740 BIC #177749,R HOP OFF HIGH ORDER BITS IF ANY 
1203 015054 116037 000010 001360 MOVB  $SEC(RO), Me ARSC “STARTING SECTOR ADDRESS 


LL LLL LL EE eT 


—_— = ~ a ~ -- ee 
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GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0066 
1206 015062 005702 1ST sR ; TERMINATOR AT 0 SECTOR 
! 1205 015064 001404 BEQ 1$ ;BRANCH IF IT IS 
1206 015066 00550 DEC R2 sDECREMENT ONE SECTOR COUNT 
| 1207 015070 010237 001362 MOV R2.CMSEC sENDING SECTOR ADDRESS 
| 41208 015074 000416 BR 3$ ZEXIT 
| 1209 015076 005760 000022 1$: TST SRMWC (CRO) :WORD COUNT = 0 
| 1210 015102 001410 BEQs OS SBRANCH IF IT Is 
1211 015104 026060 000022 000004 CMP SRMWC (RO) ,SWRDM(RO) ; WORD COUNT CHANGED AT ALL ? 
1212 015112 001004 BNE ;BRANCH IF CHANGE 
1213 015114 116037 000010 001362 MOVB $SEC CRO) , CMSEC END SECTOR = START SECTOR 
1214 015122 0°9403 BR 3$ 
| 1215 EA 112737 000037 001362 2$: MOVB #31. ,CMSEC “END AT SECTOR 31 
1216 015132 3$: 
01513< 126C- MOV (SP)+,R2 :sPOP STACK INTO R2 
015134 012600 MOV (SP)+,RO :sPOP STACK INTO RO 
1217 015136 000207 RTS PC 
1218 
1219 TEST 7 
1660 SELF TEST: WRITE CYLINDERS SDEVM+17,$DEVM+17+128, ce cena ETC. 
1221 : THEN EXECUTE WRITE CHECK TO DECTECT ANY DATA OR HEADER PROBLEM 
‘$56 sFOR THE SELECTED oboe DRIVE 
122 :SDEVM: LOGICAL DRIVE # 
\$Se : DRIVE: PHYSICAL DRIVE # 
1226 J LARA EAA EEEARERE RARER REEREEEERREEREEERERE EERE 
015140 TST7: SCOPE 
015142 012737 000001 001176 MOV #1 ,STIMES :;D0_1 ITERATION 
1227 015150 737 030334 JSR PC ,RMINIT s INITIAL THE DRIVE 
1228 015154 012737 177777 030264 MOV #-1 , SAVEFG ;SAVE THE RH/RM REG'S 
1229 015162 012737 177777 030266 MOV #~-1, SEEKFG 
1230 015170 012737 000007 001340 MOV #7, TS.INM »LOAD TEST “whit 
1231 015176 012706 001100 MOV #STACK , SP : INITIAL THE STACK 
\Se¢ 015202 012702 004356 MOV #SELFO,R2 CLEAR THE SELF TEST SCORE BOARDS 
1233 015206 005022 1$: CLR (R2)+ : 
1234 015210 022702 004422 CMP AMSELF18,R2 ALL DONE ? 
1235 015214 1033574 BHIS 1$ sBRANCH IF NOT 
1236 015216 004506 MOV #FMTDPB RO :SET UP DPB 
1237 U15222 012760 160000 000004 MOV #-8192. ,SURDM(RO) ;LOAD FULL TRACK WORD COUNT 
1238 0152 112760 000161 000002 MOVB MWRTDAT , SCOMND (RO) sWRITE DATA CCIMMAND 
1239 0152 000010 . CLR $SEC (RO) SECTOR 0, TRAC. 0 
1240 015242 113710 001224 MOVB DRIVE, (RO) ;LOAD PHY. DRIVE 
1241 015246 270 MOV SDEVM,R2 :LOCATE THE STARTING CYLINDER 
1242 015252 060021 ADD #17., 
1243 01228 010260 000012 MOV R2,$CYL(RO) :CYLINDER ADDRESS 
1244 015 012760 043456 000006 MOV #BUF FER, SBUF (RO) ;RESET BUFFER ADDRESS 
1245 015270 012760 004526 000014 MOV #RM.REG,14(RO) ;ADDRESS TO SAVE ALL RH/RM REG'S 
1246 015276 021042 JSR PC ,F ILBUF FILL THE BUFFER WITH WORSE CASE PATTERN 
1247 015 004037 031062 2$: JSR RO,RMOS :CALL DRIVER HANDLER 
1248 015306 004506 FMTDPB 
1249 015310 000774 BR 2$ sBRANCH IF QUEUE FAILS 
1250 015312 005737 004524 3$: TST FMTDPB+16 sALL DONE ? 
1251 015316 001775 BEQ 3$ :BRANCH IF NOT 
1252 015320 012700 004506 MOV #FMTDPB,RO ;REPORT IF ANY ERROR 
1253 Sette 004737 017452 JSR PC,FROCES * 
1254 0153 005760 000016 TST 16(0) sERROR FLAG SET ? 
1255 015334 100010 BPL 22$ sBRANCH IF NOT 
1256 015336 004737 030334 JSR PC ,RMINIT INITIAL THE DRIVE 
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| CZRMTBO RMOS/3/2 DR CMPT TST 
| GET VALUE FOR SOFTWARE SWITCH REGISTER 
| 1257 015342 012737 177777 030264 
| 1258 015350 012737 177777 030266 
| 1259 015356 105260 000011 
1260 015362 126037 000011 001372 
1261 015370 003744 
1262 015372 005060 000010 
1263 015376 062760 000200 000012 
1264 015404 022760 001440 000012 
1265 015412 103333 
1266 
1267 
1268 


1269 015414 112760 000151 000002 
if 4 015422 012702 004356 


1272 015426 013703 001270 
1273 015432 062703 000021 
1274 015436 010360 000012 
1275 015442 eg et 504 


014244 


004737 014476 
15516 005737 004524 


Ge NO RN 
R 
: 
GW 
N 


Oo 
Oo 


004506 

530 017452 

5534 005760 000016 
0040 


5544 005737 004504 
001006 


ee me ee et ee ee ee ee ee et meh ee ee ee ee we ee ed eed eed ed ed = = od od 


015 
0 
015 
0 
290 0 
291 0 
292 015 
293 01 
294 01 
295 01 
296 01 
297 015550 
298 015552 005202 
299 015554 012737 000001 004504 
300 015562 000137 015446 
301 015566 105260 000011 
302 015572 005202 
303 015574 126037 000011 001372 
304 015602 003004 
305 015604 005037 50 
306 015610 137 015446 
307 015614 5060 10 
308 015620 012702 004356 
309 015624 062760 000200 000012 
310 015632 022760 001440 000012 
311 015640 103404 
312 015642 005037 004504 
313 015646 000137 015446 
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#~1 , SAVEFG 

#-1 cans 

STRK(RO) sNEXT TRACK 

STRK(RO) , TRKLMT ALL baie ARE DONE ? 


:BRANCH IF NOT 

$SEC (RO) sRESET SECTOR AND TRACK 
#128. -SCYL (RO? ;ADVANCE TO NEXT ZONE 
#800.,$CYL(RO) ; ALL 7 ZONES ARE DONE ? 
2$ ;BRANCH IF NOT 


sEXECUTE WRITE CHECK TO DETECT ANY DATA OR HEADER PROBLEM 


4$: 


5$: 


6$: 


7$: 


8$: 


9$: 


10$: 





#wWCKD SCOMND (RO) : CHANGE TO WRITE CHECK COMMAND 

#SELFO,R2 :R2 POINTS TO SCORE BOARD 
:CAN NOT BE DESTORIED 

SDEVM RS “LOACATE STARTING ADDRESS 

R3,$CYL(RO) :STARTING CYLINDER 

OFF COD :SET NEGATIVE OFFSET FLAG 

RO,RMOS :CALL DRIVE HANDLER 

4$ :BRANCH IF QUEUE FAILS 

FMTDPB+16 ALL DONE ? 

5$ “BRANCH IF NOT 

#FMTDPB,RO 

PC, PROCES 

16(RO) s ANY 


ERROR 
7 YES, THEN DON'T INCREMENT SCORE 


(R2) : INCREMENT SCORE 

R5 OF FST : OF FSET 

8$ ;BRANCH IF OFFSET FAILS 

PC MAKEUP > EXECUTE ae CHECK IN OFFSET MODE 
FMTDPB+16 ALL DONE / 

7$ >BRANCH IF NOT 

#FMTDPB,RO 

PC PROCES sREPORT IF ANY ERROR 

16(RO) sERROR BIT SET 

8$ :DON'T INCREMENT SCORE 

(R2) : INCREMENT SCORE 

OFF COD POSITIVE gt IS DONE ? 

9$ F DONE 

R2 INCREMENT SCORE BOARD POINTER 
#1 ,OFF COD 


:SET POSITIVE OFFSET FLAG 
:POSITIVE OFFSET TEST 

$TRK (RO) : INCREMENT TO NEXT TRACK 

R ADVANCE SCORE BOARD POINTER 
oe eee sALL TRACKS ARE DONE ? 


;BRANCH , IF ALL DONE. 
OF F COD sRESET OFFSET DIRECTION 
4$ :TRY THE NEXT TRACK 
$SEC (RO) ; TRACK 0, SECTOR 0 

RESE ORE 


ASELFO,R2 ° T SC BOARD 
r128. »$CYL(RO) ADVANCE TO NEXT ZONE 
#800.,$CYL(RO) ALL 7 ZONES ARE DONE ? 

11$ ;BRANCH ,IF ALL DONE 
OFFCOD sRESET OFFSET FLAG 
4$ ;TO NEXT ZONE 


SEQ 0067 


D 6 
CZRMTBO RMOS/3/2 DR CMPT TST MACRO VO04.00 4-APR-81 18:12:15 PAGE 9-25 


055 | GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0068 

| 1314 015652 000240 11$: NOP :TO NEXT TEST 

1316 :TEST1O TEST 8 READ COMPATIBLE TEST 
1317 “CYLINDERS TESTED : $DEVM+112,$DEVM+112+128XN N=1 TO 5 
1318 “THIS TEST SELECT ONE CYLINDER FOR EACH LOGICAL DRIVE FROM 
1319 *ZONE 1 TO ZONE 6 
1321 : SDEVM = LOGICAL DRIVE #4 
1356 : DRIVE = PHYSICAL DRIVE # 
1324 MAAS LAEeRE REESE RRRRARARASESRESLESESE SERS SEES EEE SESE SET EER Pee ae 

015654 000004 TST10: SCOPE 
015656 012737 000001 001176 MOV #1, $TIMES ::D0 1 ITERATION 

1325 015664 012737 000010 001340 MOV #10, TSTNM :LOAD TEST NUMBER 
1326 015672 012706 001100 MOV #STACK, SP :INITAIL THE STACK POINTER 
1327 015676 012702 003216 MO\/ #RDNO, R2 :CLEAR THE SCORE BOARD OF READ TEST 
1328 015702 005022 1$ CLR (R2)+ 
1329 015704 022702 004356 CMP #RDP18+16.,R2  ;:ALL DONE 
1330 015710 101374 BHI 1$ “BRANCH IF NOT 
1331 615712 005037 004504 CLR OFF COD :SET NEGATIVE OFFSET FLAG 
1332 615716 012700 004506 LOOP3: MOV #FMTDPB,RO -SET UP DPB BLOCK 
1333 015722 012760 160000 000004 MOV #-8192. , SWRDM(RO) ikon? THE WORD CTR,FULL TRACK 
1334 015730 005060 000010 CLR SSEC (RO) K 0 AND SECTOR 0 
1335 015734 112760 000171 000002 MOVB #RDDAT . SCOMND (ROD "LOAD THE READ DATA COMMAND 
1336 015742 012760 043456 000006 MOV #BUFFER,S$BUF (RO) :RESET BUFFER ADDRESS 
1337 015750 012760 004526 000014 MOV #RM. REG, 14(RO) : ADDRESS | TO SAVE ALL RH/RM ADDRESS 
1338 015756 113710 001224 MOVB DRIVE, (RO) ZLOAD PHY. DRIVE ADDRESS 
1339 015762 013703 001270 MOV SDEVM,R3 = LOCATE STARTING CYL 
1340 015766 062703 000160 ADD #112. .R3 
1341 015772 010360 000012 MOV R3.$CYL (RO) ZSTARTING CYL ADDRESS 
1342 015776 004037 031062 1$: JSR RO. RMOS :CALL THE DRIVE HANDLER 
1343 016002 004506 FMTDPB 
1344 0 000774 BR 1$ 
1345 016006 005737 004524 2$: TST FMTDPB+16 : COMMAND DONE ? 
1346 016012. 001775 BEQ 2$ “BRANCH IF NOT 
1347 016014 012700 004506 MOV #FMTDPB,RO 
1348 016020 004737 017452 JSR PC PROCES :REPORT IF ANY ERROR 
1349 016024 004737 015034 JSR PC, LABAD =LOACATE START AND STOP ADDRESS 
1350 016030 005760 900016 TST 16(RO) “ANY ERROR ? 
1351 016034 100011 BPL 3$ :BRANCH, IF NONE 
1352 016036 004737 030334 JSR PC .RMINIT > INITIAL THE SYSTEM 
1353 016042 012737 177777 030264 MOV #-1,SAVEFG — 
1354 016050 012737 177777 030266 MOV #-1,SEEKFG 
1355 016056 000414 BR 5$ :NOT INCREMENT THE SCORE 
1361 016060 004737 014614 3$: JSR PC, SCORE “UPDATE THE SCORE 
1362 016064 005760 000022 4$: TST SRMWC (RO) :WORD COUNT= 0 
1363 016070 001407 BEQ “BRANCH IIF IT IS 
1364 016072 116060 000026 000010 MOVB SRMDA(RO) . $SEC (RO) :UPDATE THE NEW STARTING SECTOR 
1365 016100 016060 000022 000004 MOV SRMWC (RO). $WRDM(RO) :UPDATE WORD COUNT 
1366 016106 000733 BR 1$ ; CONT INUE 
1367 016110 012700 004506 5$: MOV #FMTDPB,RO RESET THE DPB BLOCK 
1368 016114 012760 160000 000004 MOV f-8192,°S SWRDM(ROS -FULL TRACK WORD COUNT 
1369 016122 105060 000010 CLRB  $SEC(RO) sRESET TO SECTOR 0, TRACK NOT CHANGED 
1370 016126 004537 014244 6$: JSR R5.OFFST “CALL OFFSET 
1371 016132 000443 BR 10$ “BRANCH IF OFFSET FAILS 
1372 016134 004737 014476 JSR PC MAKEUP “EXECUTE READ BATA. IN, OFFSET MODE 
1373 616140 005737 004524 7$: TST FMTDPB+16 “OFFSET READ IS DONE ? 
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_ CZRMTBO RMO5S/3/2 DR CMPT TST 
| GET VALUE FOR SOF TWARE 


1374 016144 
137 


Oo 
~ 
, 
mo 


~ 
ve] 
~ 
awn 
=) 
~ 
o 
Ww 


elelelelelelelele! a) 2 


WN 
oO 
part 

RR 
Nm 
> 


Bees 3s3 
RRRSSSSSe 
VRSERS 


RELSSLIS 

Oo 

ie BRR 
Oro 


Ol ee ed ed ad od ed td +d 
ec 
~™~ 
© 
—_ — 
Oo 
™m 
VI 
a 


WAI AIAIAOAI AIAN 
S& 


1404 016304 
1405 016312 
1406 016314 


1407 
1408 016320 


016342 
016344 
1427 016352 
1430 016366 
1431 016270 


1432 016374 
1433 016400 


012702 


177777 
014614 
000022 
000026 
000022 
000200 
001377 
015776 
001270 

60 


015776 
004504 


000001 
015716 


004356 
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SWITCH REGISTER 


030264 
020266 


000010 
000004 


000012 
000012 


0071372 


904504 


8$: 
9$: 


10$: 


11$: 


12$: 


13$: 


TESTY 
; REPORT 
:DIRECT 


TST11: 


7$ :BRANCH IF NOT 
#FMTDPB,RO “REPORT IF ANY ERROR 
PC PROCES 
PC,LABA LOCATE THE START AND STOP ADDRESSES 
(RO) AROR ? 
‘ RANE H,1F NONE 
PC .RMINIT ‘INITIAL THE SYSTEM 
#~1, SAVEFG 
#=-1,SEEKFG 
108 :NOT UPDATE THE SCORE 
PC, SCORE “UPDATE THE SCORE 
SRMWC (RO :WORD COUNT IS 0 
10$ ‘BRANCH IF IT IS 
SRMDA RO) ,$SEC (RO) : UPDATE SECTOR ADDRESS 
SRMWC (RO). $WRDM(RO) UPDATE WORD COUNT 
6$ : LOOPING UNTIL CURRENT TRACK IS DONE 
#128. ,$C¥L (RO? + ADJUST CYLINDER TO NEXT ZONE 
#767. .$CYL(RO) L 6 ZONES ARE DONE ? 
118 :BRANCH IF ALL DONE 
SDEVM.R3 ;LOCATE STARTING CYLINDER 
R3,$CYL (RO) “STARTING CYLINDER 
$TRK (RO) :TO NEXT TRACK 
STRK(RO),TRKLMT :ALL SRUFACE ARE DONE ? 
12$ “BRANCH IF ALL DONE 
1$ *LOOPING UNTIL CURRENT TRACK IS DONE 
OF F COD :OFFSET CODE = POSITIVE ? 
13$ > IF EQUAL, THEN ALL DONE 
#1 OF FCOD :SET POSITIVE OFFSET FLAG 


TEST 9 
THE TEST SCORES 
THE OPERATOR TO CHANGE PACK AND MOUNT TO OTHER DIRVE 


= LOGICAL DRIVE #, SHOULD NOT BE UPDATED BEFORE THE 
REPORT IS COMPLETED. 


SDE VM 


BADSEC 


CMTRK 


SCOPE 


7;TO NEXT TEST 


0, (DRIVES ARE COMPATIBLE) 
-1, (DRIVES NOT COMPATIBILE) 


= TRACK NUMBER FOR CONTROLLING THE SCORE TYPING. 


STARA AEAAEAEAEEAEEAEERARAAEARERAAEERERAEEAREAAEAAKHAEARAERERAAEEKEERRES 


;;DO0 1 ITERATION 


#1,.$TIMES 

#11, TSTNM 
#STACK, SP 
-(SP) 

-(SP) 

#SELF OC, ~(SP) 
#RDPO, - (SP) 
WSELFO, RD 


OAD THE 


cL TEST NUMBER 
;LOAD THE STACK POINTER 


; DUMMY SCORE BOARD ADDRESSES 


=PO 


SITIVE OFFSET READ TEST SCORE ADDRESS 
sPOSITIVE OFFSET TEST SCORE 
SNEGATIVE OFFSET READ TEST SCORE 


SEQ 0069 


[ LS EE ee 
eR ee — - 
ee eae - —- = -< 


1483 eeee? 
84 


1489 016644 
1490 016650 


122712 
101403 
004537 
ooo ea. 
122762 
101403 
537 
2 


CZRMTBO RMO5/3/2 DR CMPT TST 
GET VALUE FOR SOF TWARE 


003216 
001372 
000007 
000020 


000006 


000020 
000002 


001342 
001364 
002056 
000001 


002006 


001 366 
0061270 


000016 
017152 
000016 
017152 
000014 
017152 
000014 
017152 


000016 
0171752 
000016 
017152 


F 6 
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MA 
SWITCH REGISTER 


MOV #RDNO,R3 :NEGATIVE OFFSET READ COMPATIBLE TEST SCORE 
1$: MOV TRKLMT RI “Riz TRACK NUMBER 
23: CMPB ss #7, (R2) “SELF READ TEST SCORE IS TOO LOW 

BLOS 4$ “BRANCH IF NOT 

MOV #16. ,R5 ; INCREMENT READ COMPATIBLE SCORE FORK ALL 16 DIRVES 
3$ MOVE (R3) ay :ADJUST SCORE BY ADDING 6 

MOVB  R4,(R3)+ :UPDATE SCORE AND POINTS | TO NEXT DRIVE 

DEC R5 “ALL DRIVES ARE UPDATED 

BNE 3 “BRANCH IF NOT 
4$: ADD #16.,R3 :ADJUST POINTER OF SCORE BOARD ADDRESS 
S$: ADD #2,R2 “UPDATE THE SELF TEST SCORE ADDRESS 

DEC R1 “ALL TRACKS DONE ? 


BGE 2$ ;BRANCH IF NOT 


MOV (SP)+,R3 GET NEXT PAIR 
MOV (SP)+,R2 
BNE 1$ 
SET ACCEPTANCE FLAG, INITIALIZE THE TABLE POINTERS AND TRACK NUMRER 
CLR BADSEC ;SET ACCEPTANCE FLAG 
CLR CMTRK ;START FROM TRACK 0 
CLR R1 : START FROM LOG DRV 
MOV #OVWNO,R2 :SCORE BOARD BASE ADDRESS 
MOV #BITO,R3 :BIT POSITION FOR LOG DRV 0 
LOOP4: BIT R3,ASNLST S THE LOG DRV UNDER TEST ? 
BEQ 5 : CH IF NOT 
CLR INE sNEW LINE INDICATOR 
CMPB SDEVM,R1 sSELF SCORE ? 
BEQ SPATH * BRANCH IF IT IS 
KPATH: CMPB #14.,(R2) ZOVERWRITE NEG OFFSET < 14 ? 
BLOS 1$ = BRANCH IF NOT 
JSR R5,PRINT ;REPORT EXCEPTIONS 
000001 ; COLUMN POSITION ON REPORT 
000460 _ 1$: CMPB #14. ,OVWPO-OVWNO(R2) sOVERWRITE POS OFFSET < 14 ? 
BLOS 2$ ;BRANCH IF NOT 
JSR R5,PRINT REPORT EXECPTIONS 
000002 COLUMN POSITION ON REPORT 
001140 2$: CMPB #12. .RDNO-OVWNO(R2) ;READ NEG OFFSET < 6 
BLOS 3$ :BRANCH IF NOT 
JSR R5,PRINT REPORT EXCEPTIONS 
000003 COLUMN POSITION ON REPORT 
001620 3$: CMPP #12. .RDPO-OVWNO (R2) sREAD POS OFFSET < 12 ? 
BLOS ;BRANCH IF NOT 
SR AS. PRINT sREPORT EXECPTIONS 
000004 >;COLUMN POSITION ON REPORT 
4$: BR LOOPS “EXIT 
SPATH CMPB #14.,(R2)  OVERWRITE NEG OFF < 14 
BLOS 1$ CH IF NOT 
JSR R5,PRINT : REPORT EXECPTION 
000601 POSITION ON REPORT 
000460 1$: MPB 91%. .ovwPO~OVUNOTRD) sOVERWRITE POS OFFSET < 14 


BLOS 2$ ;BRANCH IF NOT 
R5,PRINT sREPORT EXCEPTION 
;COLUMN POSITION ON REPORT 


LL I te te te a A Seem - nth ee 


1055 


ee 2 ee - 


1491 016652 


SSR 


UEWHR — O OGNAUSWN—O 


16740 


16750 
16752 


MAUI 


NMONINININRI DR @ a 3 8 SS Se 
elelelelelelelele!e! a) 


Nm 


6 016774 


MIM 
co~; 
Ooo 
ond aad 
38 
28 


17022 
030 


SBISARSS 


\ WWW MAAN AVI UU) 
OuVnFWro-COw 
>] 
—) 
| 
oO 
Ww 
Ww 


i? ar et ee er he 


17052 


VMVIViAV MMMM AVIV 


Ww 


ee ke ee ed ed ed nd = = =o) =) 0) ow) =) od = 2) od oe) od od os) oo I Le 


54 

548 017064 
549 017066 
550 017070 


013704 
006304 


122764 
101403 
004537 


000003 
013704 
006304 


012703 


123737 
00 


CZ7RMTBO RMO5S/3/2 DOR CMPT TST 
GET VALUE FOR SOF TWARE 


0u1 364 
000006 
017152 
001364 
000006 
017152 


000017 


001364 
002056 


001564 


000020 . 


000001 


001364 
001342 
001207 


042310 


SWITCH REGISTER 


MACRO V04.00 
cs: MOV CMTRK,RG 
ASL R4 
004356 CMPB #6,SELFO(R4G) 
BLOS $ 
SR RS.PRINT 
000003 
3$: MOV CMTRK,R4S 
ASL R4 
004357 CMPB #6,SELFO+1(RS) 
BLOS 4$ - 
JSR RS,PRINT 
000004 
4$: 
LOOPS: INC R1 
CLC 
ROL R3 
INC R2 
CMP #15.,R1 
BHIS LOOPS 
LOOP6: INC CMTRK 
MOV #OVWNO ,R2 
CLR 
MOV CMTRK,R3 
BEQ $ 
1$: ADD #16.,R2 
DEC 3 
BNE 1$ 
2$: MOV #B1TO,R3 
zAT THIS POIN’: 
. R1 
: R3 BIT MAP, 
001372 CMPB CMTRK, TRKLMT 
BLE LOOP4 
TST PADSEC 
BEQ D] SMNT 
TYPE -SCRLF 
DISMNT: TYPE ,SCRLF 
011276 MOV MIDLEX ,@RMVEC 
CLR @RMVEC+2 
TYPE »MESG1I2 
TYPE ,sCDW2 
MOV DRIVE ,-(SP) 
TYPOS 
-BYTE 1 
-BYTE 0O 
TYPE »MESG13 
1$ RDLIN 
MOV (SP)+,R5 
TSTB (R5) 
E 1$ 


BN 
DEASG: CLR R2 


G 6 
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sLOCATE THE SELF TEST SCORE 
;WORD INDEX 


;SELF READ NEG OFFSET < 6 ? 
:BRANCH IF NOT 


sREPORT EXCEPTIONS 
sLOCATE THE SELF TEST SCORE 
;WORD INDEX 


EX 
;SELF READ POS OFFSET < 6 ? 
;BRANCH IF NOT 

sREPORT EXCEPTIONS 

;COLUMN POSITION FOR REPORT PRINTING 


: INCREASE THE LOGICAL DRIVE #4 
sADJUST THE BIT POSITION 
sPOINTS TO NEXT DRIVE 


;UPDATE SCORE BOARD BASE ADDRESS 
sALL DRIVES ARE CHECK ? 

sBRANCH IF NOT ALi DONE 

sNEXT TRACK 

sRESET SCORE BOARD BASE ADDRESS 


[LOGICAL DRIVE START FROM 0 
;LOCATE THE SCORE BOARD BASE ADDRESS 
;BRANCH IF ON TRACK 0 


>FOR EACH ye 
ALL cae DONE ? 
;BRANCH IF NOT 

:BIT MAP. POSITION FOR DRIVE 0 


5/6 BYTES 


= LOGICAL DRIVE # START FROM 0 
; R2 = ADDRESS OF SCORE BOARD BASE ADDRESS 
; :  s INDICATE LOGICAL DRIVE O=1 


- TRACKS ARE DONE ? 

:WAS SCORE PRINTED ? 

:BR IF NO 

; CR-LF : 
; CR-LF 

RESET THE INTERRUPT VECTOR 
:CLEAR THE INTERRUPT VECTOR 
[UNLOAD AND DISMOUNT MESSAGE 


> SYSTEM NAME 
:PHYSICAL DRIVE NUMBER 


:MESSAGE TYPE <CR> WHEN READY 


sREAD IN ONE LINE 
:LOCATE THE READ IN LINE 
; CARRIAGE RETURN ? 


:BR IF NO 
;LOGICAL DRIVE NUMBER 


en em Ce Smee ee ee ee 
———— ee ee ee ere — ——. - ee  e 


SEQ 0071 


1059 


Se ee 


poe 


=) 

PIP SVA ASSIS 
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DWONOWNESE 


wn 
SSIs 
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a) Oomwn 
SENSRRGON 


ooooo°oo°coo 
™N 

—) 

mM 

On 
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Nm 
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VAAN Www 
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— 
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N 
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Www 
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MAMMA) 
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© 
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Ny 
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© 


012703 
020237 
04 


010146 


CZ7R™TBO ge DR CMPT TST 
GET VALUE FOR SOF TWARE 


000001 
601270 


002012 


001279 
001270 


004444 
012772 


023456 
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SWITCH REGISTER 


001272 





MOV #B1TO,R3 


;B1T MAP OF ASSIGNED DRIVE 


:1S THE th he DRIVE UNDER TEST ? 
;BRANCH IF IT IS 
ar THE BIT MAP FOR 


DRIVE 
; INCREMENT THE LOGICAL DRIVE # 
‘LOOPING UNTIL THE LOGICAL DRIVE LOCATED 
‘CLEAR THE ASSIGNED BIT 
“BRANCH IF NO MORE DRIVES 
: INCREMENT THE LOGICAL DRIVE # 
“UPDATE SYSTEM BLOCK ADDRESS 


SYSTEM BLOCK ADDRESS 
; JUMP To" TEST 5 FOR OTHER DRIVE 


1$: CMP Ree $DE VM 
BEQ 
CLC 
ROL R3 
INC R2 
1$ 
2s: BIC R3,ASSGN2 
BEQ XEND2 
INC $DE VM 
MOV SDEVM,R2 
ASL by 
MOV ee ee 
JMP TSTS 
-"ND2: JMP $SEOP sEND OF PASS 


;PRINT Ages 


:NAME PRIN 
>PRINT EXCEPT IONS FOR TEST SCORE 


PRINT: 
MOV R1,-(SP) 


BMI 

TYPE - SCRLF 

TYPE »MESG16 
TYPE .$CDW2 

MOV DRIVE ,-(SP) 
TYPOS 

-BYTE 1 

TYPE - SCRLF 

TYPE $CRLF 

TYPE »MESG17 


1 - 4 COLUNM NUMBER TO PRINT THE EXCEPTION MARK 


-1 NOT FIRST EXCEPTION (DON'T PRINT THE TITLE) 


COLUMN NUMBER 


“PARAMETER USED 
: NULINE = 0 A NEW LINE TO PRINT 
: BADSEC = 0 FIRST EXCEPTION DETECTED 
: BADSEC = 
“CALL 
3 JSR RS,PRINT 
; NUMBER 
; RET 
R1 = LOGICAL DRIVE # 
$DEVM = LOGICAL DRIVE UNDER 


TEST 
BIT POSITION OF LOGICAL DRIVE IN R1 


::PUSH R1 ON STACK 
7zPUSH R2 ON STACK 
; «PUSH R3 ON STACK 
;PUSH R4& ON STACK 
*FIRST EXCEPTION 
: BRANCH IF NOT,DON'T HAVE TO PRINT 
“TITLE. 
3; CRLF 
s;SCORES FOR DRIVE -- 


sSYSTEM NAME 
: TYPE THE PHYSICAL DRIVE # 


;CR-LF 


CR=LF 
‘SUB TITLE 7 
:CR=LF 


SEQ 0072 


elelelelelelelelelelolelelelo) 
elk ed ed ed ed od od ed de Bd ed 


Mg 017372 
1630 017374 
17400 


1641 

1642 017444 
1643 017446 
1644 017450 


012504 
020437 


032760 


CZRMTBO RMOS/3/2 DR CMPT TST 
GET VALUE FOR SOF TWARE 


004444 
0C0014 
042750 


042635 
000001 


001 366 
042635 
001 366 
042747 


042637 
001366 


001330 
000016 


100060 000020 
040000 000020 
040000 000032 
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SWITCH REGISTER 


001342 
001376 


017356 
017356 


001366 


TYPE -MESG18 : SUB TITLE 2 
TYPE “SCRLF > CR=LF 
MOV #-1 ,BADSEC *RESET THE ACCEPTANCE FLAG 
MOV #1 FAULT “NOT COMPATIBLE FLAG 
1$: TST NUL INE “NEW L 
‘BRANG IF oT 
TYPE /SCRLF (R= 
V CMTRK,-(SP) s SAVE CMTRK FOR TYPEOUT 
TYPDS :3GO TYPE--DECIMAL ASCII WITH SIGN 
TYPE 7 : TYPE ‘‘TAB’’ CHARACTER 
CMPB = $DEVM,,R1 “SCORE FOR SDEVM ITSELF ? 
2$ “BRANCH IF NOT 
TYPE »~BLNKS3 sTYPE 3 
TYPE  SELFX :MESSAGE ‘SELF * 
TYPE _ TAB :TYPE TAB 
BR 4$ “NEXT STEP 
2$: ASL R1 :LOCATE THE SYS HISTORY FILE 
MOV BLKADR(R1),3$ :LOCATE THE SYSTEM NAME AND DRIVE # 
ASR R1 sRESTORE DRIVE # 
ADD #SSYSNM, 3$ sLOCATE THE SYSTEM NAME AND DRIVE # 
TYPE ,BLNKS3 :TYPE 3 BLANKS 
TYPE :TYPE THE SYSTEM AND DRIVE 
3$: . WORD ; ADDRESS FOR TYPING MESSAGE 
TYPE TAB TAB 
4$: MOV #1 NUL INE : INDICATE PRINTER STOPS AT COULMN 1 
5$: MOV (R5)+,R4 “RETRIEVE THE DESIRED COLUMN # FROM 
:CALLING ROUTINE 
6$: CMP R4 NUL INE :ON THE RIGHT COLUMN ? 
BLO 8S :I1F LOW NOT PRINT 
BEQ 7$ :BRANCH IF LOCATED 
TYPE J :ADVANCE TO NEXT COLUMN 
INC NUL INE - INCREMENT COLUMN CTR 
BR 6$ : CHECK AGAIN 
7$: TYPE /BLNKS4 TYPE 4 BLANKS 
TYPE /MARKX ° THE EXCEPTION MARK ‘'* 0"' 
INC NUL INE “NEXT COLUMN 
MOV (SP) +,R4 :zPOP STACK INTO R4& 
MOV (SP)+,R3 ::POP STACK INTO R3 
MOV (SP)+,R2 ::POP STACK INTO R2 
MOV (SP)+,R1 ::POP STACK INTO R1 
RTS R5 “EXIT 
IDLEX: NOP :RESET ALL RH/RM VECTOR FOR MOUNT AND DISMOUNT 
RT] sEXIT 
:PROCESS THE ORDER TERMINATION 
PROCES: MOVB (RO) ,UNIT :DRIVE NUMBER FOR ANY ERROR MESSAGES 
TST $TATUS (RO) : SEE IF DRIVER SIGNALED AN ERROR 
BM! ERPROC BR IF ERROR 
BIT #B1T15, SRMCS1 (ROS :SEE IF ‘SC’ SET 
BEQ 1$ F NOT SET 
BIT #BIT14, $RMCS1 (RO) -SEE IF "TRE' SET 
BNE ERPROC IF SET 
BIT #B1T14,$RMDS(RO) ;:SEE IF “ERR' SET 


SE EE ew 


SEQ 0075 
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CET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0074 


1656 017512 001015 BNE ERPROC ;BR IF SET 
1657 017514 004737 620572 1$: JSR PC,CKERR +NO ERROR, CHECK ERROR BITS ANYWAY 
| 1658 017520 004737 020640 JSR PC ,CKBUS ERROR, CHECK BUS ADDR & wC 
1659 017524 004737 030334 JSR PC ,RMINIT : INITIALIZE THE SUB SYSTEM 
| 1660 017530 012737 177777 030264 MOV 4-1 ,SAVEFG :CLEAR THE SAVE FLAG 
1661 017536 012737 177777 030266 MOV #-1,SEEKFG :SET THE NOT IMP FLAG 
| Mb 017544 000207 2$: RTS PC ; RETURN 
ieee sORDER TERMINATED WITH AN ERROR = PROCESS THE ERROR 


1666 017546 032760 000200 000016 ERPROC: BIT 
16607 017554 001402 te ag BEQ IF ORDER DIDN'T COMPLETE NORMALLY 
1668 017556 000137 017744 JMP DONE :PROCESS ERROR WITH ‘DONE’ BIT SET 
:PROCESS ORDER COMPLETION WITH "ERROR' & ‘DONE NOT’ BITS 

017562 052760 010000 .000016 ERPRC1: BIT #81112, , STATUS (RO) SEE IF DRIVE WAS UNSAFE 
017572 032760 004000 000016 BIT we1T11. STATUS ROS PARITY ERROR OC CURRED 
017602 032760 002000 000016 BIT W5ITI0, STATUS(RO) ; Ate Tene 13 ERROR? 
1678 017612 032760 001000 000016 BIT 


FALPAR ;BR_IF 
#BITO9,$TATUS(RO) ; TIMEOUT? 
001025 SWI IM ;BR IF YES 
017622 032760 040002 000016 BIT #81714 !B1T01, STATUS (RO) oy WENT OFFLINE ? 


ry Ee e STATUS (RO) ;DONE BIT SET ? 


—— —. 


017630 001025 BNE OFLIN I 
1682 017632 032760 000004 000016 BIT mel2. STATUS(RO) ;PORT REQUEST TIME OUT ”? 
1683 017640 001025 BNE BR IF IT DID 
017642 000207 RTS le sERROR. RETURN 
sDRIVE IS PERSISTENTLY UNSAFE 
017644 PUNSAF : 


017644 
: 017650 


3 

017654 
017654 
01766@ 


1 01 
$ 017670 


5 
017674 





037160 
017720 


037062 
017720 


037125 
017720 


037211 
017720 


DISPLY ,EMi2 
JMP DUMP 2 


: UNCORRECTABLE MASSBUS PARITY ERROR OCCURRED 


UCPAR: 
DISPLY ,EM10 
JMP DUMP 2 


;"FATAL* MASSBUS PARITY ERROR OCCURRED 


FALPAR: 
DISPLY ,EM11 
JMP DUMP2 


; SOFTWARE TIMEOUT OCCURRED 
SWTIM: 

DISPLY ,EM13 

JMP DUMP 2 
DRIVE WENT OFFLINE 
OFLIN: 


LS ee ae me ee ee 


J062 


CZRMTBO RMOS/3/2 DR CMPT TST 


017704 104414 037263 
017710 000137 017720 


017740 000177 161434 


017744 032760 000030 
729 017754 000137 020530 
30 040000 


730 017760 032760 
731 017766 001402 
732 C17770 000137 020310 
733 017774 032760 040000 
734 020002 001002 
735 020004 000137 020500 


1736 020010 032760 000400 


1738 020020 0001357 020340 
1739 020024 032760 000020 


1741 020034 000137 020360 
1742 020040 032760 000200 
3 020046 
1744 020050 000137 020370 
02¢ J00 
20062 
1747 020064 000137 020410 
1748 020070 032760 000010 
1750 020100 000137 020430 
000040 
1753 020114 000137 020520 
175 002000 
1756 020130 000137 020440 
004000 
1759 020144 0001357 020450 
001000 
1762 020160 032760 002000 
3 020166 
70 207 
765 Oran 032760 010000 


66 020 
767 026202 000137 020420 
hs 020206 005760 000034 


000016 DONE: BIT 


K 6 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


DISPLY ,EM14 

JMP DUMP 
:PORT REQUEST TIMEOUT ERROR 
PRTIM: 


DUMP2: TYPE - SCRLF ; CR-LF 
TYPE »XFATL 
TYPE . $CRLF ;CR-LF 


eHALTX 
JMP @RSTART 
sPROCESS ORDER COMPLETION WITH ‘E 


MP DTEER 
TST $SRMER1 (RO) 


; JUMP TO RESTART 


RROR' & ‘DONE’ BITS SET 


‘ieee BRIE NOT. OCCURRED 


BEQ 

JMP UNSAF REPORT UNSAFE 
000030 BIT #BIT14, SRMCS2(ROS :1S ‘WCE’ SET ? 

BEQ +6 : CH IF NOT SET 

JMP WCKER :WRITE CHECK ERROR 
000032 BIT #81T14,$RMDS(RO) ; CHECK ' 

BNE | :BR IF SET 

JMP PROCESS ‘TRE’ 
000034 1$: BIT Weli08, SRMER1 (ROS :"HCRC’ SET? 

BEQ ; Ts IF NOT 

JMP HCR *PROCESS "HCRC' 
000034 BIT WeiT0, SRMER1(RO) ; "FMT" SET? 

BEQ 6 BR IF NOT SET 

JMP CKF HECK FORMAT ERROR 
000034 BIT ie SRMERT (ROS “« : "HCE" SET? 

BEO :BR IF NOT SET 

JMP xn CHECK "HCE* ERROR 
000034 BIT weITi3. SRMER1(RO) ; "OPI" SET? 

BEQ +6 :BR IF NOT SET 

JMP OPIER EPORT 'OPI' 
000034 BIT #B1T3,.$RMER1(RO) :"PAR" SET? 

BEQ ; +6 :BR IF NOT SET 

JMP ARER =RE "PAR' 
000034 BIT Wits. SRMER1(RO) = "WCF" SET? 

BEQ +6 :BR IF NOT SET 

JMP WCFER “REPORT "WCF 
000034 BIT #B1T10.$RMER1(RO) :"JAE* SET? 

BEQ +6 *BR IF NOT SET 

JMP IAEER “REPORT "JAE' 
000034 BIT WBIT11.$RMER1(RO) ;"WLE® SET? 

BEQ +6 :BR IF NOT SET 

JMP WLEER *RE "WLE' 
000034 BIT WITS. SRMER1 (RO) :"AOE' SET? 

BEQ :BR IF NOT SET 
000032 BIT 131110, $RMDS(RO) :"LST* SET? 

BEQ c$ :BR IF NOT SET 

RTS PC ‘AOE’ & 'LST' SET, EXIT 
000034 2$: ~° BIT #61712. $RMER1 (ROS *SEE IF ‘DTE' SET 

BEQ +6 :BR IF NOT 


REPORT ‘DTE* ERROR 
:SEE IF “a SET 


BPL . +6 :BR 


SEQ 0075 


06 3 


C7RMTBO RMO5/3/2 DR CMPT TST 


| GET VALUE FOR SOF TWARE 


1770 020214 


~S SI VW VV 
ARANSSS 
Ooo°oo 
SSSSSS 
~~ ROK 
SEERS 


SSSSSIIIIIPIIIIasasagaada 
i] fole) i 
SSsss S 
eeysss S 


aud and 
Ss 
Wi 
OOO 
MMM 
ooo 
rs 
a >) 


1808 
1809 
1810 020350 


1821 
1822 020370 
1823 020370 
1824 020574 
1825 


826 


104414 
000137 


032760 
1004 


104414 
000137 


SWITCH REGISTER 
020300 
060000 000062 

100000 000062 


020350 


043106 
161100 


037363 
020540 


100000 000034 


037467 
020540 
037414 
020540 


037342 
020540 


037757 
020540 


037546 
020540 


037614 
020540 
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JMP DCKER “PROCESS 'DCK’ 
BT #81114 181113, $RMERZ(RO) {"SKI" OR ‘OCYL* SET 
c © 
BIT #81715, $RMER2(RO) :BAD SPOT ? 
BNE 4$ :BRANCH IF SO 
JMP DRVER “REPORT ERROR 
3s: JMP SKIER :REPORT DRIVE ERROR 
4$: TYPE SSCRLF = CRLF 
TYPE MESG11 
EMT ? 
EMT 10 
EMT 17 
EMT 12 
TYPE JHALT 
J @RSTART ; JUMP TO RESTART 
:PROCESS DATA ("DCK') CHECK ERROR 


DCKER: 
DISPLY ,EM21 
JMP DUMP 


;WRITE CHECK ERROR PROCESSING 


WCKER: 
#817T15,$RMER1 (RO) sDCK BIT SET ? 
BNE $ ;BRANCH IF SET 
DISPLY ,EM23 
JMP DUMP 
1$: DISPLY ,EM22 
JMP DUMP 


;REPORT ‘HCRC* ERROR 
HCRCER: 
DISPLY ,EM20 
JMP DUMP 
sREPORT DRIVE ERROR 
DRVER: 
DISPLY ,EM30 
JMP DUMP 
sPROCESS FORMAT (‘FER’) ERROR 
CKFMT 
DISPLY ,EM24 
JMP DUMP 
;PROCESS HEADER COMPARE (‘HCE’) ERROR 


CKHCE 
DISPLY ,EM25 


JMP DUMP 
sPOSSIBLE POSITIONING ERROR 


SEQ 0076 


_ CZRMTBO RMOS/3/2 DR CMPT TST 


| 

| 1 

| 1898 020404 
| 829 


1837 020420 
1838 020420 
Lb 020424 


1851 020444 
1852 

1853 

1854 

1855 020450 
1856 020450 
1857 020454 
1858 

1859 

1860 

1861 020460 
1862 0204 


1871 

1872 020500 
1873 020500 
1874 020504 
1875 

1876 

1877 

1878 020510 
1879 020510 
1880 020514 
1881 

1882 

1883 


041120 
020540 


040011 
020540 
04005 


4 
020540 


040107 
020540 


040226 


020540 | 


040264 
020540 


037675 
020540 


037722 
020540 


040377 
020540 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


POSER: DISPLY ,EM51 
JMP DUMP 


;REPORT ‘OPI* ERROR 
OPIER: 


DISPLY ,EM31 
JMP DUMP 


;REPORT ‘DTE* ERROR 
DTEER: 

DISPLY ,EM32 

JMP DUMP 
;REPORT ‘PAR’ ERROR 
PARER: 

DISPLY ,EM33 

JMP DUMP 
;REPORT ‘IAE* ERROR 
IAEER: 

DISPLY ,EM35 

JMP DUMP 
ZREPORT WLE ERROR 
WLEER: 

DISPLY ,EM36 

JMP DUMP 
;REPORT FORMAT ERROR 
FMTER: 

DISPLY ,EM26 

JMP DUMP 
;REPORT HEADER COMPARE ERROR 
ACEER: DISPLY ,EM27 

JMP DUMP 


sPROCESS CONTROL/INTERFACE TRANSFER ERROR 
TRFER: 
DISPLY ,EM40 
JMP DUMP 
sPROCESS "SKI* OR ‘OCYL' 
SKIER: 
DISPLY ,EMSO 
JMP DUMP 


sREPORT WRITE CLOCK FAILURE 


1065 


| 
| 


CZ7RMTBO RMOS/3/2 DR CMPT TST 
VALUE FOR SOFTWARE SWITCH REGISTER 


GE [ 


1884 020520 
5 020520 
ry. 020524 


020562 
902 620570 


906 
907 020572 


~~ — 
© 0 
oy 
© 


20 
1921 020640 


1930 020674 
1931 020700 
1932 
1933 
1934 020702 


040164 
020540 


041163 
020540 


030334 
177777 
177777 


060000 
177400 
000034 
000062 


040640 
020540 


000022 
000004 


000006 
000024 


040446 
020540 
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030264 
030266 


000020 
000030 


WCFER: 
DISPLY ,EM34 
JMP DUMP 


;REPORT DRIVE UNSAFE ERROR 


UNSAF : 
DISPLY ,EM60 
JMP DUMP ; 
DUMP : 
EMT 7 
EMT 10 
EMT 17 
EMT 12 


JSR PC ,RMINIT 
MOV A#~-1,SAVEFG 
MOV ——_ 


;CLEAR THE SUB-SYSTEM 


;CKECK ERROR BITS IN THE RH/RM REGISTERS 


CKERR: BT iat ater laa oe IF *TRE’ OR ‘MCPE’ 
al #177400, $RMCS2(RO) : ERROR BITS IN CS2 / 
TST SRMER1 (RO) = ANY ERROR IN ERI 
BNE 1$ YES 
| TST SRMER2 (RO) “ANY ERROR IN ER2 
, BEQ 2$ ;BRANCH IF NO ERROR 
1$: DISPLY ,EM44 
JMP DUMP ; TYPE ALL REGISTERS 
2$: RTS PC 


; CHECK BUS ADDRESS REGISTER AND WORD COUNT REGISTER 


CKBUS: TST SRMWC CRO) ;WORD COUNT = 0 
BNE 1$ ;NO 
MOV SWRDM(RO),-(SP) ;WORD LENGTH 
NEG (SP) 7GET THE POSITIVE NUMBER OF WORD COUNT 
ASL (SP) ;BYTE COUNT 


ADD $BUF (RO) , (SP) 
CMP ee 


BEQ 2 
1$: DISPLY ,EM41 
JMP DUMP ;TYPE ALL REGISTERS 


2$: RTS PC 
;ROUTINE TO DISPLAY THE SECTOR WHICH GAVE THE HARD ERROR 


PRIBAD: TYPE ;CR-LF 
TYPE »MESG19 ie 


SCRLF ;CR= 
MOV $RMBA(RO) ,R1 ;PUT THE END ADDRESS INTO RI 
MOV aes -(SP) ;FIND THE BEGINNING OF THE SECTOR 
NEG (SP :GET THE POSITIVE NUMBER OF WORD COUNT 


SEQ 0078 


- --— ee eee. 


 CZRMTBO ga DR CMPT TST 
| GET VALUE FOR SOF TWARE 


— — SS ss 


fSRIEIGES 


33 SS ws 
SESERE 
NOWUESWN 


$333 
© 


~~ he Lr eT eee 


oo 
wiv 


13 


BIRZBSBSSSRSSERESS 


Oooo © 
sesesesssses 
sssossocoasaNes 
R WRINMITUNR 


B28 
— 
SSRF 
OseM~M 


032777 


000022 


000400 
021764 


001000 
000004 


000007 
000024 


042752 


0211 ‘ 
177777 


001207 
001207 


002000 
001202 
020000 


001207 


— ee —_—————— 


MACRO 
SWITCH 2EGISTER 


160030 LINE1: ol 


160014 


BR 
5$: DISPLY 


6$: RTS 


F ILBUF : 


3$: MOV 


4$: RESREG 
RTS 


ee ee 


——- (SP) 
(SP) 


#256. oar 
ny? LINK 
(SP) 


1$ | 

(SP) 

(SP) .R1 
#1900,R1 
#4,SP 

#7 .R2 
ow 
-BLNKS1 
(R1)+,-(SP) 
PC,.LINOCT 
#-1,(R1) 


SBUF (RO) ,R1 
SWRDM (RO) ,R2 


R2 
#STNDAT RS 
#20,R 
(RS5)+,(R1)+ 
R2 

4$ 

R3 

3$ 

#20,R3 
#STNDAT,RS 
3$ 


PC 
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:BRANCH IF SO 
:DECREMENT THE HORIZONTAL COUNT 
;BR v NOT AT THE END OF THE LINE 


THE UPPER DIVIDE 


39 
;SUBTRACT IT FROM 
:FINISH THE SIZING 


; SUBTRACT FULL betes te Sice FROM END ADDR 


: TYPE THE 
7END OF FILE ? 


er tee THE WORDS Ny anaes 
:DIVDE THE WORDS TRANSFERED BY THE SECTOR SIZE 
sREMANDER = 0 ? 


7BR IF IT IS = COMPLETE SECTOR TRANSFERED 
ONVERT THE RESIDUAL SECTOR SIZE INTO BYTE COUNT 
THE END ADDRESS 


ANK 
7PUT THE on ON THE STACK 


7 CR=L 
;RESTORE THE WORDS/LINE COUNT 


:SAVE THE REGISTERS 
“BUFFER ADDRESS 
*POSITIVE WORD COUNT 
[PATTERN ADDRESS 


;PATTERN COUNT 


:MOVE THE PATTERN INTO THE BUFFER 
‘oa iF bom “ WORD COUNT 


DONE (WORD COUNT 
= DECREMENT ys. PATTERN COUNT 


IF MORE PATTERN 
“RESTORE PATTERN COUNT 
RESTORE 


THE ADDRESS 
: CONTINUE DISTRIBUTING THE PATTERN 
: RESTORE THE REGISTERS 


-SBTTL ERROR MESSAGE GENERATION ROUTINES 
;PRINT LINE 1 OF ERROR MESSAGE: 
; "HH:MM:SS* 


T 
1$: BIT 


DISPLY 


#SW10,aSWR 
1$ 


- SBELL 
laa 
-SCRLF 


SWITCH 10 SET ? 
IF NOT 


“RING THE BELL 
: INHIBIT TYPEOUT ? 
:BR IF NOT 


: CR-LF 


:PRINT WHAT REMAINS IN THE BUFFER 
RETURN 


= 0) 


ee ae 


SEQ 0079 


67 


SERREEE 
SSRALSSSSSLAE 


Le ~—< 


$3 


: 


e 


20 


Odd 


SS88s 


te od od ed od ed 


10 


+ 


CONAUSWH— 


021214 
021220 


26 021224 
2027 021230 
ose 021232 


1234 


Ww 
N 
oO 
Shae 
— 
Nm 
rs 
N 


SSS 





REESugUne 


Vw 
Wh 


Wwh— 


OO 
mn 
—_—— 
MM 
Ww 
© 


88 
NBR 


lw Nm 
=3Sy 


SERSRS 


WG 
Ww 
Nm 


RMO05/3/2 DR CMPT TST 


NERATION ROUTINES 


012737 
7 


7 
013701 


621430 
042752 


000002 
022674 
022300 
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MACRO V04.00 
BR 3$ sEXIT 
2$: JSR PC ,STIME : TYPE ie 9 TIME 
DISPLY ,BLNKS1 :TYPE 1 BLANK 
3$: RTS PC RETURN & TYPE DESCRIPTION 
20 ne TYPEOUT ROUTINE 
; MOV NUM, (SP) sPUT THE NUMBER ON THE STACK 
: JSR PC,LINOCT 
; RETURN 
LINOCT: MOV 2(SP) ,-(SP) :PUT NUMBER _IN PROPER LOCATION ON STACK 
JSR PC ,$SB20 :CONVERT THE NUMBER TO OCTAL 
MOV (SP)+,1$ :GET THE ADDRESS OF THE ASCII STRING 
021206 ADD #5.,1$ ;ADDRESS THE LAST 6 ASCII DIGITS 
DISPLY :TYPE IT 
1$: -WORD 0 : ADDRESS 
MOV (SP) +, (SP) :CORRECT THE STACK 
RTS PC ; RETURN 
sROUTINE TO CONVERT THE INPUT NUMBER TO DECIMAL AND TYPE IT WITH 
+: Yea ZERO SUPRESSION 
; MOV NUM, - (SP) sPUT THE NUMBER ON THE STACK 
; JSR PC,LINDEC 
: RE TURN 
LINDEC: MOV 2(SP) ,~(SP) :SET UP STACK FOR CONVERT 
JSR PC .$SB2D sCONVERT IT TO DECIMAL 
JSR PC ,$SUPRS sTYPE IT (WITH LEADING ZEROS SUPRESSED) 
MOV (SP) +, (SP) sRESTORE STACK POINTER 
RTS PC 
-SBTTL GENFRAL SUPPORT SUBROUTINES 
sROUTINE TO CHECK FOR KWil-L OR KW11-P CLOCKS 
001316 CKCLK: MOV #-1,CLKFLG :CLEAR CLOCK AVAILABILITY FLAG 
001314 MOV #-1 ,PCLOCK sCLEAR KW11-P CLOCK AVAILABILITY FLAG 
4 MOV WCKCLK1,ERRVEC :SET UP VECTOR FOR CLOCK CHECK 
CLA QAERRVEC+2 :NEW 44 
TST aSLKCSR ;CHECK FOR Kw11-P 
CLR CLKFLG > SET CLOCK gt witty FLAG 
CLR PCLOCK SET KW11-P CLOCK FLAG 
MOV SLPVEC.R1 :KW11-P VECTOR ADDRESS 
MOV ACLOCK, (R1)+ sSET UP KW11-P VECTOR 
MOV #300, (R1) PSW - PRI 6 
1577 MOV #-1667. ,a$iKCSB “LOAD COUNTER BUFFER WITH 16.67 
157754 “44 ae ;SET CLOCK - CNT UP, 10US, CONT INT 
CKCLK1: ADD #4 ,SP sRESTORE THE STACK POINTER 
000004 MOV #CKCLK2, @#ERRVEC: Voges ERROR VECTOR TO CHECK FOR KW1 I=L 
TST et) ;LOOK FOR i 
CLR FLG ;SET CLOCK FLAG 
MOV SLLVEC.R1 sKWI1=L VECTOR ADDRESS 


SS ee ee eee ee 


SEQ 0080 


ee 


CZ7RMTBO RMOS/3/2 DR CMPT TST 
SUPPORT SUBROUTINES 


GENE 


2086 
2087 051856 
2088 


RAL 


021420 


2089 


2090 
2091 021526 
2092 32 


2093 021534 
2094 2 


tm! 8 od ood 


021526 
000300 
000100 


000004 
043257 
000042 
157760 
000006 


001316 
001207 
001344 
022674 
022210 
042754 
001346 
022674 
022210 


001344 
000021 
034344 
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157714 


000004 


001352 
001350 


001346 


001344 


CKCLK2: ae 4 


1$: JMP 
CKCLKS: new 


ACLOCK, (R1)+ 
#300,(R1) 
aie 


1$ 

@RSTART 

#6, AMERRVEC 
PC 


sROUTINE TO TYPE THE TIME 


STIME: TST 
BNE 


1$: RTS 


CLKFLG 
$ 


R5REPLZ 
2 


, COLON 
MINUTE ,~(SP) 
PC, $SB2D 


R5 ,REPLZ 
2 


COLON 
SECOND, - (SP) 
PC, $SB2D 

RS .REPLZ 


PC 


:CLOCK HANDLER ROUTINE 


CLOCK: DEC 


1$: MOV 
2$: RTI 


«Sale 
HZ,SIXTEE 
SE COND 
cate 
SE COND 
MINUTE 
laa 
MINUTE 


: COMMAND DECODE ROUTINE 


{SET UP Kil 1=L VECTOR 
SSET KW11=L INTERRUPT 


RESTORE THE STACK POINTER 
:*P OR L CLOCK MUST BE ” SYSTEM’ 
; UNDER _— CONTROL 


;BR_ IF NO 
; JUMP TO RESTART 
sRESTORE THE ERROR VECTOR 


;CLOCK ON THE SYSTEM ? 
;BR IF NOT 

2 CR=LF 

:PUT ‘HOURS’ ON THE STACK 
Ture iT TO DECIMAL 

; TYPE 2 DIGITS 


SpuT ‘MINUTES’ ON THE STACK 
: CONVERT TO DECIMAL 


S| 
; TYPE ¢ DIGITS 


>PUT SECONDS ON THE STACK 
: CONVERT TO DECIMAL 


:TYPE 2 DIGITS 


: INCREMENT THE 1/60 SECOND COUNTER 


__BR_IF A SECOND NOT COUNTED 
;RE UE 


$ Fp 
;CLEAR THE SECOND'S COUNTER 
; COUNT THE MINUTE 
7AT MAXIMUM ? 
sBR IF NOT 
;CLEAR THE MINUTE'S COUNTER 
; COUNT THE HOURS 
BR IF pa! 
CLEAR T 


HE HOURS 
7 MS ON THE STACK 
:DRIVER TIMER ROUTINE 


SEQ 0081 


oe RMO5/3/2 DR CMPT TST 


med ed ed et 2d ot) 3) 2 LL 

MN a Ss et er 

WN -OO@ONOUPWR- 
oO 


MPMINMIMINMNM PM NINIPINN PUNY 
MMM 


2132 021716 


2147 021752 
021754 
021756 
021760 

2148 021762 

2149 

2150 021764 

66 


010146 


0 
1044153 


NERAL SUPPORT SUBROUTINES 


000200 
001336 


000002 
157256 


060100 


177776 


000002 
000020 
000002 


000026 
000030 
000032 
022032 
000030 
006032 


; 
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177776 


157246 


3 CALL: 


KSR: 


7$: 


:*CFLAG’ IS NORMALLY SET BY THE TTY SERVICE 
sROUTINE iN INTERRUPT MODE 


SYSTEM BUSY RETURN 


;RETURN AFTER KEYBOARD SERVICED 


;SAVE THE REGISTERS 
;SET PRIORITY T 


TIME 

GARBAGE IN THE TTY BUFFER 
:CHECK THE CONTROL C FLAG 

sEXIT IF ‘CONTROL C‘ ENTERE 

:DUMP CODING FOR LATER USE” 3/8/77 


RESTORE RO =~ R5 

; INCREMENT THE RETURN ADDRESS 
:CLEAR THE TTY BUFFER 

:SET TTY INTERRUPT ENABLE 
:SET PRIORITY BACK TO ZERO 


+7 gg TO CLEAR THE DPB FOR THE ASSIGNED DRIVE 


CLRDPB: 


1$: 


LINKDV: 


MOV #-1,CFLAG 
JSR PC.KSR 
RETURN] 
RETURN2 
SAVREG 
MOV #PR4 PS 
CLR CFLAG 
JSR PC, $TIME 
TST @$TKB 
TST CFLAG 
BNE 7$ 
NOP 
RESREG 
ADD #2, (SP) 
TST a$TKB 
BIS #B1T06,a$TKS 
CLR PS 
RTS PC 

V ADPB RO 
JSR PC,CLRDPB 
RE TURN 
MOV R1,-(SP) 
MOV R3,-(SP) 
MOV R4.-(SP) 
MOV R5,~(SP) 
MOV RO,R4 
ADD oR4S 
MOV #SEMTAB-2 ,R3 
CLR R4)+ 
SUB #2 ,R3 
BNE $ 
MOV (SP) +,R5 
MOV (SP)+,R4 
MOV (SP)+,R3 
MOV (SP)+,R1 
RTS PC 
SAVREG 
MOV 26(SP),R5 
CLR R4 
MOV 30(SP),R2 
MOV 32(SP),R3 
CLR RO 
CLR R1 
JSR PC,.M.DPID 
MOV R1,50(SP) 
MOV 3,32(SP) 
RESREG 


:DPB ADDRESS 


33PUSH R1 ON STACK 
; sPUSH R3 ON STACK 


ADDRESS 
ADDRESS OF FIRST ek TO BE CLEARED 
“NUMBER OF LOCATIONS TO CLEAR 

>CLEAR THE STORAGE LOCATION 
:DECREMENT THE BYTE COUNT 

;LOOPING BACK 

:sPOP STACK INTO R5 

73POP STACK INTO R4 

:sPOP STACK INTO R35 

:;POP STACK INTO R1 

;RE TURN 


2 VISOR RO - R5 

SOTHER DIVISOR WORD 

;UPPER DIVIDEND WORD 

:LOWER DIVIDEND WORD 

:CLEAR OTHER DIVIDEND REGISTERS 


:G0 TO THE DIVIDE ROUTINE 
sREMAINDER ON THE STACK 
sQUOTIENT ON THE STACK 
RESTORE RO = R5 


SE EE ES SE Et ES ee ee ee ee 


SEO 0082 


GENERAL 


61 022026 
be 022030 


1 022032 


2216 022206 
2217 


01266 
000207 


012746 


CZRMTBO RMO5/3/2 DR CMPT TST 
SUPPORT SUBROUTINES 


000040 


000002 
000002 


000002 


000002 


000004 


000006 


000010 


000006 


x 47 Se Be Be Be Be 


M.DP4O: 


M.DP44: 


M.DPSO0: 


.DPID: 


ie 
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MOV oo ;MOVE RETURN UP THE STACK 


RTS 


DIVISION {es _ 
RO=R1=-R2=-R3=DI VIDEND 
R4-R5=DIVISOR 


RO=R1=REMAINDER AFTER DIVISION 
Re=R3S=QUOCTIENT AFTER DIVISION 
ENTER WITH JSR PC,M.DPID 


MOV #40 ,-(SP) ; COUNTER Sean” DIVISION CYCLES 


MOV R4,-(SP) ‘HIGH ORD 
MOV RS.-(SP) “LOW ORDER DIVISOR TO THE STACK 
NEG 2(§P) “FORM NEGATIV 
NEG asP “VERSION OF THE DIVISOR 
C 2(SP) 
ADD aSP,R1 
ADC RO :PERFORM THF INITIAL SUBTRACTION 
ADD 2(SP) .RO 
BCS M.DP5O :1F CARRY THEN OVERFLOW HAS OCCURRED 
CLR ~(SP) :THIS IS A LONGER LASTING CARRY BIT 
ROL R3 
ROL R2 
ROL R1 
ROL RO 
TST a@sP TEST "'CARRY’’ INDICATOR 
BEQ M.DP41 7IF NO "'CARRY’’ THEN ADD ELSE SUBTRACT 
CLR asP >CLEAR UP FOR NEXT TIME 
ADD 2(SP).R1 
ADC RO :ADD -(DIVISOR) 
ADC asP > | SET *'CARRY'’ 
ADD 4(SP) ,RO:<- 
BR M.DP42 
ADD R5,R1 
ADC RO ADD +(DIVISOR) 


ADC asP 7% SET “CARRY 


ADC aSP SET “‘CARRY*' 

TST aSP ;TEST THE UPDATE INDICATOR 
BEQ ~*4 3~> :IF ZERO FORGET IT 

INC 7NO CARRY POSSIBLE HERE 


BRANCH IF MORE TO DO 


ADD R>, 

ADC RO 

ADD R4,RO 
CLC 

ROL R3 

te #10,SP ;ADJUST STACK BY 4 WORDS 
LV 

RTS PC 
ADD #6,5P 
SEV 

RTS PC 


SEQ 0085 


271 


I et tt a - 


CZRMTBO RMO5/3/2 DR CMPT TST 
. SUPPORT SUBROUTINES 


GENERAL 


22753 
22 


022212 012746 000012 
000006 
000060 


004 
022232 112710 000040 
0 200 


005300 
G22250 112710 000060 
0000 
a55er 062637 022270 


: 022276 000205 


0223512 122720 000060 
1773 


8 005300 
2h 022322 010037 022330 


022340 013746 177776 


022344 012737 


0002 
022352 012537 022362 
004737 024576 


000000 
022364 000205 


000004 


G 7 
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022270 


177776 





3$: MOV 


4$: - WORD 


; TYPE NUMERICAL 
; CALL 


—_— TO REPLACE LEADING ZEROS IN A NUMERIC STRING WITH SPACES 


WADR .=(SP) sADDRESS OF NUMBER (IN ASCII) 
N ;'N’ IS NUMBER OF DIGITS TO BE TYPED 
RO,=(SP) : SAVE RO 
#10. ,-(SP) “MAXIMUM NUMBER OF DIGITS TO BE *YPED 
(R5)+, (SP) :SUBTACT DIGITS TO FORM INDEX 
6(SP) .RO ; ADDRESS OF NUMBER TO RO 
#'O, (RO) ;BYTE EQUAL TO ASCII °° ? 
#40, (RO) “REPLACE THE ZERO WITH A SPACE 

0 : INCREMENT THE BYTE ADDRESS 
1$ =GO BACK AND LOOK FOR MORE LEADING ZEROS 
(RO) : SEE IF ZERO BYTE TERMINATOR 

0 BACKUP STRING POINTER 
#'0O, (RO) :PUT A ZERO BACK IN 

(SP) .4$ “PUT ADDRESS IN LOCATION FOR TYPEOUT 
(SP)+, °4$ 1 een OF eel DIGITS 
0 *ADDRESS OF NUMBER 

(SP)+,R0 “RESTORE RO 

(SP)+, (SP) -MOVE RETURN ADDRESS 
R5 : RETURN 


ASCIZ STRING SUPRESS LEADING ZEROS 


HNUMADR,-(SP) ;FIRST ADDRESS OF ASCIZ STRING 
PC, $SUPRS 

RO,-(SP) SAVE RO 

4<SP) ,RO + PICKUP THE  iitaame 

(RO) > TERMINATOR ? 

2$ :BR IF YES 

#°0, (RO)+ 71S THIS AN ASCII "0° ? 
1$ -BR IF YES 

RO CKUP BY ‘1° 

RO,3$ : SAVE FoR TYPING 

0 :ASCIZ POINTER GOES HERE 
(SP) +,RO :RESTORE RO 

(SP) +, (SP) sRESTORE THE STACK 

PC : RETURN 


sROUTINE TO TYPE AT PRIORITY 4 


é JSR 
SSUPRS: MOV 
MOV 
1$: TSTB 
BEQ 
C 
BEQ 
2$: = 
DISPLY 
3$: . WORD 
MOV 
MOV 
RTS 
TYPRI4: MOV 
MO\ 
MOV 
JSR 
1$: . WORD 
RTS 


@4PS ,- (SP) 
#200, a4PS 
(R5)+,1$ 
PC, ,STYPE 


: SAVE THE PRESENT STATUS 


$8 AGE 
;ME SSAGE ADDRESS GOES HERE 
R5 ; RE TURN 


SEQ 0084 


. 
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972 GENERAL SUPPORT SUBROUTINES SEQ 0085 
2275 sROUTINE TO TYPE ERRORS 
2276 : CALL 
2277 : DISPLY :MUST DEFINED IN ‘TRAP’ TABLE 
2278 : ME SADR :ADDRESS OF MESSAGE 
9279 : RETURN 
| 2281 022366 032777 020000 156560 S$DSPLY: BIT #81113, aSWR : INHIBIT ERROR TYPEOUT ? 
| 2282 922374 001002 BNE 1$ “BR IF YES 
: 2283 022376 000137 024576 JMP $TYPE : TYPE THE MESSAGE 
| 2284 022402 062716 0900002 1$: ADD #2, (SP) i INCREMENT THE RETURN 
| 2285 022406 000002 . RETURN 
2287 :THIS ROUTINE IS USED TO CHECK IF AN 
| 2288 ASCII CHARACTER IS A DIGIT BETWEEN O AND 7. 
| 2290 : MOV #ADR,R1 :ADDRESS OF ASCII CHARACTER 
2291 : JSR R5,CK.OCT :CHECK THE CHARACTER 
| 2292 : RETURN] “CHARACTER IS NOT BETWEEN 0-7 
2293 : RETURN2 “CHARACTER IS IN R2 AS A 
$Soe : sOCTAL DIGIT 
2296 022410 121127 000060 CK.OCT: CMPB (R1),#°O ;LESS THAN ZERO? 
2297 022414 103407 BLO 1$ “YES == BRANCH 
2298 022416 121127 000067 CMPB (R1) #°7 ; GREATER THAN SEVEN? 
2299 022422 101004 BHI 1$ -YES == BRANCH 
2300 022424 111102 MOVB (R1),.R2 “GET THE CHARACTER 
2301 022426 042702 177770 BIC #°C7,R2 *STRIP AWAY THE ASCII 
2302 022432 005725 TST (R5)+4 “ADJUST FOR RETURN 
2303 022434 000205 1$: RTS R5 RETURN 
2305 :THIS ROUTINE IS USED TO CHECK AN ASCII CHARACTER 
230¢ : AND DETERMINE IF IT IS A DIGIT BETWEEN O AND 9. 
2308 : MOV ADR,R1 :ADDRESS OF ASCII CHARACTER 
2309 : JSR RS Ck DEC :CHECK THE CHARACTER 
2310 : RETURN “NOT BETWEEN 0 AND 9 
2311 : RE TURN2 “BETWEEN 0 AND 9 
$zi6 : 3 “R2 = DIGIT 
2314 022436 121127 000060 CK.DEC: CMPB (R1),#°O :LESS THAN ZERO? 
2315 022442 103407 BLO 1$ “YES -- BRANCH 
2316 022444 121127 000071 CMPR (R1),4#'9 ; GREATER THAN NINE? 
2317 022450 101004 BHI 1$ -YES == BRANCH 
2318 022452 111102 MOVB (R1).R2 =GET THE CHARACTER 
2319 022454 042702 000060 BIC “#'0,R2 “STRIP AWAY THE ASCII 
2320 022460 005725 TST (R5)+ “ADJUST FOR RETURN 
2321 022462 000205 1$: RTS R5 RETURN 
2323 : THIS ROUTINE WILL CHECK AN ASCII CHARACTER TO 
2324 :DETERMINE WHAT IT IS. 
2325 * CALL 
2326 : MOV #ADR,RI1 :ADDRESS OF ASCII CHARACTER 
2327 : JSR R5,CK.CHR ;CHECK CHARACTER 
2328 : RETURN ADR1 UNKNOWN CHARACTER 
3 : RETURN ADR2 “CARRIAGE RETURN * (R1)=ADR+1 
: RETURN ADR3 * (R1)=ADR+1 


; COMMA 
:PERIOD * (R1)=ADR+1 


173 


eee 


i 2381 029612 


CZRM 


GENER 


TBO RMOS/3/2 DR CMPT TST 


PIMIPIN 
avin 3 
aca 


ave 
USF 
© 
™m 
™m 
> 
& 


MMOMIM NNN 
WOO 
coo 
POMPOM 
™m 
N 
oO 


EFESEE 
Nm 


2375 022576 
23 600 


37 


060203 
004537 
022656 


SUPPORT SUBROUTINES 


000054 
000056 
022436 
022419 


022464 


000004 


022464 


CK.CHR: 


1$: 
2s: 
3$: 


4$: 


RE TURN 
RE TURN 


, 
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ADRS :DIGIT BETWEEN 0 AND 7 
ADR6 “DIGIT BETWEEN 8 AND 9 
“R2 = DIGIT * (R1)=ADR+1 
(R1) i CARRIAGE RETURN’? 
(R1) a", = COMMA’ '? 
2$ “YES == BRANC 
(R1),#°', :' PERIOD”? 
1$ “YES == BRAN 
R5,CK.DEC DIGIT’? 
4$ ‘NO <= 
R5,CK.OCT “OCTAL ? 
(R5)+ ‘DIGIT BETWEEN 8-9 
(R5)+ “DIGIT BETWEEN 0-7 
(R5)+ “PERIOD 
(R5)+ : COMMA 
(R5)+ : CARRIAGE RETURN 
1 ;MOVE POINTER TO NEXT CHARACTER 
(R5),R5 CHARACTER 
RETURN 


ee ROUTINE CHECKS AN ASCII STRING FOR LEGAL 


renee 


e 
e 
e 
° 
e 
© 
* 
e 
° 
e 
° 
° 


CK.DIG: 





AND FORMS A DECIMAL VALUE 


BINARY NUMBER IN R2. 


#ADR,R1 7ADDRESS OF ASCIZ STRING 
ANUM ,R2 ;MAX. MAGNITUDE OF INPUT NUMBER 
R5,CK.DIG :CHECK DIGITS 
ADR1 + CR’ ONLY ENTERED -- R2=0 
ADR2 :’PERIOD’’ ONLY ENTERED -- R2=0 
ADR3 ; ILLEGAL CHARACTER OR INPUT TOO LARGE -- R2=? 
ADRS "CR" = NUMBER 
ADRS : COMMA -- R2 = NUMBER 
ADR6 =" PERIOD’’ -- R2 = NUMBER 
R4,-(SP) 7SAVE R4 
R3,-(SP) ;SAVE R3 
R2,~(SP) ;SAVE THE MAX. SIZE ON THE STACK 
R2 :START WITH O 
mes 
R4 
R5,CK.CHR ;CHECK ONE CHARACTER 
; ILLEGAL CHARACTER 
eae RETURN 
“DIGIT 0-7 
sDIGIT 8-9 
#4,R5 :;STEP RETURN POINTER PAST ‘‘CR'’ & “PERIOD’’ RETURNS 
R : INPUT NUMBER *2 
R3,-(SP) sSAVE *2 
R3 34 
R3 ;* 
(SP)+,R3 s(*2)4(*8) = *10 
R3 ;UPDATE THE INPUT NUMBER 


Re, 
R5,CK.CHR s CHECK ONE CHARACTER 


; ILLEGAL CHARACTER 


SEQ 0086 


274 


) 
i 
) 
| 


| 
| 
| 


CZ 
| GE 


RMTBO RMOS/3/2 DR CMPT TST 
SUPPORT SUBROUTINES 


NE RAL 


2 
2397 
2398 
23 


2428 


022620 


C2 
022670 
022672 


022674 


022720 
6 


022732 


000002 
022720 
027004 


000000 


000002 
022750 
027200 
000002 


000000 


J 7 
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022720 


022750 


58 CARRIAGE RETURN 
3$ @?@ ee 

2$ DIGIT 0-7 

2s DIGIT 8-9 

TSTB. (R11) DOES A ‘'CR'’ FOLLOW THE ‘PERIOD’’ 
BNE 8$ 2 IF NOT 

TST (RG) + SINCREMENT THE RETURN 

TST (R4)+ INCREMENT THE RETURN 

TST (R4)+ INCREMENT THE RETURN 

CMP sR, (SP) CHECK THE MAGNITUDE OF THE NUMBER 
BHI «9S :BR_IF ENTERED NUMBER TOO LARGE 
BR 8$ BYPASS INCREMENT 

TST (R5) + INCREMENT RETURN PAST INVALID RETURN 
TST (R5) + INCREMENT RETURN 

ADD — R4&, RS ;SETUP_RETURN POINTER 

MOV 3,R2 ENTERED VALUE 

TST (SP) + :CLEAN MAX. SIZE OFF OF STACK 
MOV = (SP) +, R3 RESTORE R3 

MOV = (SP) +,R4 ZRESTORE R& 

Mov — (R5),R GET RETURN ADDRESS 

RTS —s RS ; RETURN 


:THIS ROUTINE WILL CONVERT A oe UNSIGNED BINARY NUMBER TO AN 


:UNSI 


$SB2D: 


1$: 


: THIS ROUTINE WILL CONVERT A 
+ 5 msi OCTAL ASCIZ NUMBER. 


$SB20: 


1$: 


meres 


NOTE: 


GNED DECIMAL ASCIZ 


NUMBER , = (SP) 


;PUT THE NUMBER ON THE STACK 
PC, $SB2D 


ALL 
“ ADDRESS OF THE 1ST ASCIZ CHAR IS ON THE STACK 


THE PROGRAM REQUIRES THIS FORM OF ‘$SB2D°, NOT THE VERSION ON 
THE SYSMAC LIBRARY, REV C AND LATER 


MOV 
JSR 
RET 


MOV 2(SP),1$ >SAVE THE BINARY NUMBER 

MOV #1$,-(SP) :SET THE POINTER 

JSR PC ,$DB2D >CALL THE DOUBLE LENGTH CONVERT 
MOV (SP)+,2(SP) :PICKUP THE POINTER 

RTS PC RETURN 

-WORD 0,0 


16-BIT UNSIGNED BINARY NUMBER TO AN 


MOV NUMBER.-(SP) | : PUT THE NUMBER ON THE STACK 
JSR PC, $SB20 > CALL 

RETURN “ADDRESS OF THE 1ST ASCIZ CHAR IS ON THE STACK 
THE PROGRAM REQUIRES THIS FORM OF '$SB20". NOT THE VERSION ON 

THE SYSMAC LIBRARY, REV C AND LATER 


MOV 2(SP),1$ ;SAVE THE BINARY NUMBER 

MOV #1$,-(SP) :SET THE POINTER 

JSR PC ,$DB20 >CALL THE DOUBLE LENGTH CONVERT 
MOV (SP) +,2(SP) ;PICKUP THE POINTER 

RTS PC ; RETURN 

-WORD 0,0 


SEQ 0087 


Ca¥ 
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075 | GENERAL SUPPORT SUBROUTINES SEQ 0088 
| 2434 :KEYBOARD INTERRUPT INITIALIZATION ROUTINE 
| 2435 > CALL 
24 36 : JSR PC .$TKINT 
| 3637 : RETURN 
2439 022754 012737 023004 000060 S$TKINT: MOV WSTKSRV,TKVEC  ;SETUP VECTOR 
2440 022762 012737 000240 000062 MOV WPRS,TKVEC+2  =:PRIORITY TO 5 
| 2441 022770 005777 156166 TST a$TKB “CLEAR THE BUFFER 
2442 022774 O03 97 000100 156156 MOV #B1T06,a$TKS :SET INTERRUPT ENABLE 
2443 023002 000207 RTS PC + RETURN 
26445 :KEYBOARD INTERRUPT SERVICE ROUTINE 
2446 > CALL 
647 : ENTER VIA INTERRUPT 
2449 023004 104410 $TKSRV: RDCHR :READ THE KEYBOARD 
2450 025006 112637 023146 MOVB (SP)+,5$ *GET THE CHARACTER 
2451 023012 023727 023146 000003 CMP 5$,43 > "CONTROL C' 
2452 023020 001017 BNE 1$ *BR IF NOT 
2453 023022 104401 001207 TYPE /SCRLF * CR-LF 
2454 023026 104401 023452 TYPE »SCNTLC ,tace 
2455 023032 012737 177777 001336 MOV #-1,CFLAG :SET THE ‘CONTROL C’ FLAG 
2456 023060 005077 156114 CLR a$TKS =CLEAR THE TTY INTERRUPT 
2457 023044 104401 001207 TYPE »$CRLF = CRLF 
2458 023050 104401 043106 TYPE “HAL TX sHALT THE PROGRAM 
2459 023054 000177 156320 JMP @RSTART : JUMP TO RESTART 
2461 023060 023727 001154 000176 1S: CMP SWR , ASWREG :SOFTWARE SWITCH REGISTER IN USE ? 
2462 023066 001024 BNE % =BR IF NOT 
2463 023070 023727 023146 000007 CMP 5$.47 **CONTROL G’ ? 
2464 023076 001020 BNE 3g :BR IF NOT 
2465 023100 104401 001207 TYPE »$CRLF = CRLF 
2466 023104 104401 026661 TYPE SSCNTLG :*96° 
2467 023110 013746 177776 MOV PS,=(SP) :PUT THE STATUS WORD ON THF “TACK 
2468 023114 012746 023130 MOV #2$,-(SP) [RETURN ADDRESS 
2469 023120 005077 156034 CLR asTks :CLEAR THE TTY INTERRUPT ENABLE 
2470 023124 000137 026312 JMP SGT SWR GET THE SWITCH REGISTER ENTRY 
2471 023130 012777 000100 156022 28: MOV #100, a$TKS [ENABLE TTY KEYBOARD INTERRUPT 
2472 023136 000402 BR 4$ = EX 
2473 023140 104401 023146 3$: TYPE ,5$ 7ECHO THE CHARACTER 
267% 023144 000002 4$: RTI : RETURN 
2476 023146 000000 S$: WORD 0 ZENTERED CHARACTER 
2478 :THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
2479 ; CALL: 
80 : RDLIN :: INPUT A STRING FROM THE T 
2481 , : RETURN HERE :ADDRESS OF FIRST CHARACTER "iaek BE ON THE STACK 
scas 3 ; TERMINATOR WILL BE A BYTE OF ALL O'S 
2484 023150 010346 SRDLIN: MOV R3,-(SP) :SAVE R3 
2485 023152 005046 CLR ~(SP) “CLEAR THE RUBOUT KEY 
2486 027154 012703 023426 1$: MOV WSTTYIN.R3 °° :GET ADDRESS 
2487 023160 022703 023452 2$: CMP #STTYIN+20.,R3  :BUFFER FULL? 
2488 023164 101467 BLOS 8$ :BR IF YES 
2489 023166 104410 ROCHR *GO READ ONE CHARACTER FROM THE TTY 
2490 023170 112613 MOVB (SP)+, (R3) “GET CHARACTER 


076 


- 


SUPPORT 


2491 023172 
2492 023176 
2493 


2506 0 

2507 023256 
2508 023262 
2509 025264 
2510 623270 


366 
023370 


2540 02342 
2541 023452 
2542 


PP Sat ng RMO5/3/2 DR CMPT TST 
UBROUT INES 


000177 


000134 
023424 
177777 
023426 


023424 
023424 


23424 
000025 
026654 
000003 


177777 
023452 


000012 
001207 
023426 
001206 
023424 
023424 
000015 


177777 
001210 


000004 
023426 


103 


SS 
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CMPB ss #177, (R3) :1S IT A RUBOUT 
BNE 4$ :BR IF NO 
TST (SP) “1S THIS THE FIRST RUBOUT? 
BNE 3$ ;BR IF NO 
023424 Move #*\,11$ : TYPE A BACK SLASH 
MOV #-1, (SP) :SET THE RUBOUT KEY 
3$: DEC R3 “BACKUP BY ONE 
CMP R3,ASTTYIN “STACK EMPTY? 
BLO 5 “BR IF YES 
MOVB (R3),11$ sSETUP TO TYPEOUT THE DELETED CHAR. 
TYPE 11$ :GO TYPE 
BR 3$ :GO READ ANOTHER CHAR. 
4$: TST (SP) “RUBOUT KEY SET? 
BEQ 5$ -BR IF NO 
023424 Move wy ,118 :TYPE A BACK SLASH 
CLR (SP) :CLEAR THE RUBOUT KEY 
5$: CMPB sd #25, (R3) 71S CHARACTER A CTRL U? 
TYPE SCNTLU :TYPE A CONTROL ‘U"’ 
j *GO START OVER 
6$: CMPB—s#3, (R23) 71S CHARACTER A CTRL C ? 
BNE 7$ :BR IF NOT 
001336 MOV #~1,CFLAG *SET CNTRL C FLAG 
TYPE »SCNTLC -ECHO IT 
BR sEXIT 
7$: CMPB so #'12,, (R33) *1S CHARACTER A ‘LF’? 
BNE 9$ “BRANCH IF NO 
CLRB ss (R33) :CLEAR THE CHARACTER 
TYPE /SCRLF ; TYPE ACR’ ® ‘LF 
TYPE STTYIN TYPE THE INPUT STRING 
BR 2$ *GO PICKUP, ANOTHER CHACTER 
8$: TYPE ,SQUES > TYPE A 
BR i$ = CLEAR THE BUFFER AND LOOP 
9S: Move (R3) .11$ :ECHO THE CHARACTER 
CMPB ss #15, (R3) + : CHECK FOR RETURN 
BNE “LOOP IF NOT RETURN 
CLRB  =s-_- = 1(R’3) "CLEAR RETURN (THE 15) 
TYPE .$LF -TYPE A LINE FEED 
10S: TST (SP) + > CLEAN RUBOUT KEY FROM THE STACK 
MOV (SP) +,R3 SRESTORE R3 
MOV (SP) ,=(SP) :ADJUST THE STACK AND PUT ADDRESS OF THE 
000002 MOV 4(SP),2(SP) : FIRST ASCII CHARACTER ON IT 
000004 MOV #STTYIN,4(SP) 
RTI = RETURN 
118: .BYTE 0 =STORAGE FOR ASCII CHAR. TO TYPE 
-BYTE 0 : TERMINATOR 
S$TTYIN: .BLKB 20. RESERVE 20. BYTES FOR TTY INPUT 
“ASCIZ /*C/<CRLFD “CONTROL "'C’’ 


200 $CNTLC: 
EVEN 


SEQ 0089 


277 


| CZRMTBO RMOS/3/2 ba CMPT TST 


: 


ee ee 
—— ee ee 
— ee 


END OF PASS ROUTIN 
1 





000020 
010000 


023616 


000020 
023612 


001207 
043004 


mM 7 
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001220 


155364 


~SBTTL END OF PASS ROUTINE 


SP RAAT EERE EAREEREERREREEREEREET The 


NT THE PASS NUMBER (S$PASS) 
s*IF SW12=1 INHIBIT TRACE Na 


3 * INCRE 
s*1F THERES A os aah GO 


:*IF THERE ISN'T 


SEOP: 


SEOPCT: .WOR 


SENDCT: 


$GET42: MOV 


SCLR.T: 


SENDAD: 


SDOAGN: 


1$: 
SRIRN: 


$LOOP: 


SRTINAD: 
STBIT: 
FINISH: 


1$: 


JUMP TO FINISH 


SPA 

#100000, $PASS 
(PC) + 

SDOAGN 
 Piateaaatiatia 
a¥#42,R0 
SDOAGN 

~(SP) 
#SCLR.T,~(SP) 
SRTRN . 
av42,R0 
SDOAGN 


PC, (RO) 


#20, (SP) 
#B1T12,aSWR 
$TBIT 

1 


#20, (SP) 
#$LOOP ,-(SP) 


a(PC)+ 
FINISH 
0 

FAULT 
1$ 

, SCRLF 
»MESG15 
, SCRLF 
»MESG20 


O IT 


ay THE TEST NUMBER 

es O THE NUMBER OF ITERATIONS 
A nr ae ef THE PASS NUMBER 
i :DON'T ALLOW A NEG. NUMBER 


77 YES 
7 ;RESTORE COUNTER 
3:GET MONITOR ADDRESS 
: ;BRANCH IF NO MONITOR 
THE ‘**T’’ BIT is * 
$3 SETUP Af AN RTI OR R 
:GO DO AN RTI OR RTT oy LOAD THE FSW 
WITH A CLEARED °'T’’ BIT 
32 INSURE RO CONTAINS THE MONITORS 
7 RETURN ADDRESS 
: CLEAR THE WORLD 
3:G0 TO MONITOR 
ae ROOM 
>:ACT11 
7ZzPUSH OLD PSW AND PC ON STACK 
73 CLEAR THE ‘‘T’’ BIT 
+ RUN git TRACE TRAP? 


IHS IT TIME FOR TRACE TRAP 


ES 
® TRETURN-~TH IS IS CHANGED TO 
AN "RIT’’ IF ‘RTT’ IS A LEGAL 
< INSTRUCT ION 
> sRETURN 
3:°'T'* BIT STATE INDICATOR 


:COMPATIBLE ? 
;BRANCH IF NOT 


7 CR=L 
re ALL DRIVE COMPATIBLE 


eS ee 


SEQ 0090 


078 


CZRMTBO RMOS/3/2 DR CMPT TST 
END OF PASS ROUTINE 


9 025046 104401 043 
10 023652 104401 601 
11 025656 000177 155 


— —-—-_—— — 5 -_ 
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TYPE 
TYPE 
JMP 


» STARS 
» SCRLF 
@RSTART 


ne ee eee 


: TYPE STARS MESSAGE 
‘JUMP TO RESTART 


SEQ 0091 


ERROR HANDLER 


. 


Hy oy 


012637 
022737 


— C7RMTBO RMOS/3/2 DR (MPT TST 
ROUT i NE 


024254 
001117 
001116 
002000 


oot eee 
001126 
001132 
000002 
155170 
001000 
000177 


024254 
177777 


000004 
024024 
177766 
177777 
024040 
000004 
177777 
000001 
000001 
001130 
000177 
024254 


020000 
024256 


ee — — —— 
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024252 


000004 
024252 
024252 


024252 
024252 


155032 


-SBTTL ERROR HANDLER ROUTINE 


rit III TTT TT TiTiTitTitTitiTtttT 
“STHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
:*SAVE THE ERROR ITEM NUMBER AND 

:*AND GO TO SERRTYP ON E 


1$: 


1000$: 


1001$: 
1002$: 


1003$: 
1004$: 


THE ADDRESS OF THE ERROR CALL 


:* THE ~ aheae rae PROVIDED BY THIS ROUTINE ARE: 


ON 
INHIBIT ERROR TYPEOUTS 





ERRVEC, = (SP) 
#1000$. ERRVEC 
177766. CPSAVE 
1001$ 

#-1, CPSAVE 
#1001$, (SP) 


(SP) +, ERRVEC 
#1, CPSAVE 
#81T00,CPSAVE 
1004$ 

#B1T00, 177766 
SITEMB, IBSAVE 
#177.$1TEMB 
1004$ 

IBSAVE 
#81113, aSWR 


PC, SERRTYP 


BEL ON ERROR 
LOOP ON ERROR 
N 7 ERROR=EMT AND N=ERROR ITEM NUMBER 
IBSAVE 7:CLEAR THE ITEM BYTE SAVE LOCATION 
7: TEST FOR — IN SOF T=-SwWR 
SERFLG +3 SET THE ERROR FLAG 
7$ ;DON'T LET THE FLAG TO ZERO 
STSTNM,@DISPLAY = :DISPLAY TEST NUMBER ERROR FLAG 
#81T10,aSWR ;;BELL-ON ERROR? 
1$ zzNO - SKIP 
72RING BELL 
> COUNT T 


oe HE NUMBER OF ERRORS 
:-GET ADDRESS OF ERROR INSTRUCTION 


33STRIP AND SAVE THE ERROR ITEM CODE 
oeSEE IF LOOP ON ERROR IS SET 


H AROUND ROUTINE IF SO 
: SEE o THIS IS THE POWER FAIL CALL 
H AROUND ROUTINE IF IT IS 


SEQ 0092 


33 Sae Me THIS IS THE 2ND ERROR CALL IN THIS ROUTINE 


H IF SO 
: SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 


CH IF SO 
::SAVE CONTENTS OF ERROR VECTOR 
:SETUP 'TRAP* RETURN ADDRESS 
: IMOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 


:sSET CPU ERROR REGISTER TIMEOUT INDICATOR 
7zSETUP RETURN ADDRESS 


:sRESTORE CONTENTS OF ERROR VECTOR 
+SEE IF i HAS CPU ERR REG TIMEOUT INDICATION 
73 SEE iF A a 9 MONITOR BIT IS SET IN CPU ERR REG 
; 7 CLEAR THE BIT FOUND SET 

E IBSAVE NON-ZERO FOR 
::SET SITEMB TO SPECIAL POWER 
; sBRANCH OVER IBSAVE CLEARING 
;:CLEAR IBSAVE SO 2ND TIME THROUGH EXITS 
:zSKIP TYPEOUT IF SET 


stant TYPEOUTS 
:GO TO USER ERROR ROUTINE 


DUAL ERROR CALL 
FAIL POINTER 


_ CZRMTBO RMOS/3/2 4 # OR al TST 


i 
| 
i 


| 
| 


ERROR 


HANDLER 


024254 


013716 
022737 
001001 
105737 


001210 


000000 
000000 


001207 
000001 


001130 
025150 


024254 
154760 


001000 


001124 
001200 


001200 
023544 


024254 
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001232 
024156 


154744 


000042 


20$: 


21$: 


22$: 
2$: 


3$: 


4$: 


5$: 


6$: 


CPSAVE : 
IBSAVE : 


TYPE 


MOO USN, 
oO 
* 


-SCRLF 


#APTENV,. SENV 


SITEMB,21$ 
SATY4 


2$ 
IBSAVE 


re ae 
SLPERR, (SP) 
SESCAPE 


5$ 
SESCAPE , (SP) 
A#SENDAD ,a442 
6$ 


IBSAVE 
7$ 


; RUNNING IN APT MODE 
7zNO POR 

::SET ITEM NUMBER AS ERROR NUMBER 
: REPORT FATAL ERROR TO APT 


z:APT ERROR LOOP 
SEE IF IBSAVE IS LOADED 
ony ar IF NOT - NO HALT ON PWR MON BIT ERROR 


ON 
TEST FOR CHANGE IN SOF T-SWR 
+ 11 SWITCH SET? 
; «FUDGE RETURN FOR LOOPING 
; CHECK FOR AN ESCAPE ADDRESS 
: BR IF NONE 
7zFUDGE RETURN ADDRESS FOR ESCAPE 


:sSEE IF ITEM SYTE SAVE LOCATION HAS AN ERROR CALL 
er BACK TO CALL ORIGINAL ERROR 


>:LOCAT'ON TO SAVE CPU ERROR REG CONTENTS 
>:LOCATION TO SAVE ITEM BYTE 


_ CZRMTBO RMO5/3/2 DR CMPT TST 
| ERROR MESSAGE TYPEQUT ROUTINE 


Se ee a 


— 


024256 


024266 
024272 
024274 


024444 
024526 


024560 


013746 
104402 
000437 
122700 
001006 
013737 


012700 
000406 


005300 
006 


024444 
120 
124 

024574 


001207 
001130 


001132 


000177 
001216 


024434 
005362 
024352 
001207 
024370 


001207 


001207 


024430 
040 


024526 
117 


105 
001132 
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024574 


000 
024560 
127 
123 


024252 





SEQ 0094 
-SBITL ERROR MESSAGE TYPEOUT ROUTINE 


PPI PIP IP PITT i Tritt itt tii titi iitiitiiiiitiTitit 
 STHIS ROUTINE USES THE ‘‘ITEM CONTROL BYTE" Ne TO DETERMINE WHICH 
:*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE'’ (SERRTB), 
;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 
TYPE , SCRLF 37" ‘CARRIAGE RETURN'' & ‘LINE FEED’ 
MOV RO,-(SP) 


37 SAVE 
CLR RO ;ZPICKUP THE ITEM INDEX 


BISB a#$ITEMB.RO 
BNE 1$ ::1F ITEM NUMBER IS ZERO, JUST 

7: TYPE THE PC OF THE ERROR 
MOV SERRPC,-(SP) 3; SAVE SERRPC FOR TYPEOUT 

RROR ADDRESS 
TyPOC » ; 760 TYPE--OCTAL ASCII(ALL DIGITS) 
1$ CMPB ~—s-: #'177..RO ; SEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL 

BNE 1000$ : BRANCH IF NOT 


00 

MOV STESTN,PFISIN 3 GET TEST NUMBER 

MOV #PFECH.RO ::MOVE POWER FAIL ERROR CALL TABLE TO RO 
BR 1001$ “BRANCH TO CALL ERROR 

1000$: DEC RO : i sADJUST THE INDEX SO THAT IT WILL 


ASL RO FOR THE ERROR TABLE 
ASL RO 
ASL RO 
ADD #$ERRTB,RO i FORM TABLE POINTER 
1001$: MOV (RO) +,2$ ::PICKUP ‘ERROR MESSAGE’ POINTER 
BEQ 3$ ::SKIP TYPEOUT IF NO POINTER 
TYPE 7: TYPE THE ‘ERROR MESSAGE"’ 
2$: .WORD 0 ;:'ERROR MESSAGE’’ POINTER GOES HERE 
TYPE  ,S$CRLF 7: "'CARRIAGE RETURN’’ & ‘LINE FEED’’ 
3$: MOV (RO) +,4$ : :PICKUP SDATA HEADER’’ POINTER 
BEQ 5$ “SKIP TYPEQUT IF 0 
TYPE ::TYPE THE ‘DATA HEADER’ 
4$: .WORD 0 :3"DATA HEADER’ POINTER GOES HERE 
TYPE  ,$CRLF ;“'CARRIAGE RETURN’ & “LINE FEED" 
S$: MOV _- (RO).RO ::PICKUP ‘DATA TABLE" POINTER 
BNE 7$ ::GO TYPE THE DAT 
6$: MOV (SP) +,RO ; RESTORE RO 
TYPE  ,$CRLF =: “CARRIAGE RETURN'’ & "LINE FEED’ 
‘ RTS PC >: RETURN 
MOV @(RO)+,-(SP) 5; SAVE_a(RO)+ FOR TYPEOUT 
TYPOC =:GO TYPE=-OCTAL ASCII CALL DIGITS) 
TST (RO) +:1S THERE ANOTHER NUMBER? 
BEQ A$ SBR IF NO 
TYPE 8$ * TYPE TWO(2) SPACES 
BR 7$ si 
8$: “ASCIZ hot >: TWO(2) SPACES 
PFECH: PFECHT -PRECH?, ,PRECHS. aPFECHS ::WORDS DEFINING TABLES BELOW 
PFECH1: .ASCIZ R MONITOR BIT IN CPU ERROR REGISTER FOUND SET? 
PFECH2: -ASCIZ aTESTNO ERR PC CPUERREG? 
o V N 
PFECH3: .WORD PFTSTN.$cRRPC,CPSAVE.0 


ee ee ns = 


C2 
ER 


RMTBO RMOS/3/2 DR CMPT TST 
ROR MESSAGE TYPEOUT ROUTINE 


C24570 000 000 
024574 000000 
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OOO PFECH4: .BYTE 0,0,0,0 
PFTSTN: .WORD 0 


i; CONTAINS TEST NUMBER FOR PF BI 


ERROR 


SEQ 0095 


—_——<S" oo er ee - 


024576 


024740 
024744 


24762 


105737 
100002 


CZ7RMTBO RMOS/3/2 DR CMPT TST 
TYPE ROUTINE 


001173 


000002 
000001 


000100 


024646 
025140 


000040 


000002 
000011 
000200 


025126 
aa 
001170 
000001 


025010 
025126 
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001232 
001235 


001233 


. SBTTL 


: *NOTE1: 
:*NOTE2: 
; *NOTE 3: 


TYPE ROUTINE 


ICIP IIIT Iii iit Titi T iT Tititiiiiiititiitiiiitiiiitiitit 


® SROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O Bit 
:*THE ROUTINE WILL INSERT A NUMBER OF 


0 FEED 
SNULL CONTAINS THE CHARACTEP TO BE USED AS THE FILLER CHARACTER. 


NULL CHARACTERS AFTER A LINE 


SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 


$FILLC CONTAINS 


*CAL 
1) “USING A TRAP INSTRUCTION 
YPE ME SADR 


:eOR 
* 
- 
* 


$TYPE: 


1$: 


61$: 
62$: 
2$: 
60$: 
3$: 


4$: 


5$: 
6$: 


7$: 


TYPE 
ME SADR 


STPFLG 
1$ 


#APTENY » SENV 


#APTSPOOL .SENVM ;; 
62$ ; 


RO,61$ 
PC,SATY3 


a 
(RO) +,-(SP) 

4$ 

(SP) + 

(SP)+,RO 

#2, (SP) 

#HT. (SP) 
ACRLF , (SP) 

5$ 


(SP)+ 


$SCHARCNT 
2$ 


PC ,STYPEC 
SFILLC,(SP)+ 


2$ 
SNULL ,- (SP) 
1 (SP) 

$ 


6 
PC, STYPEC 
$CHARCNT 
7$ 


THE CHARACTER TO FILL AFTER. 


;sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


:e15 pig | A TERMINAL ? 


:FLEAVE iF NO TERMINAL 


VE RO 
GET ADDRESS A ASCIZ STRING 
: s RUNNING IN APT MODE 


a 
2 
ee 
S 
z 


SPOOL MESSAGE TO APT 


: ONSOL 
77 YES,SKIP TYPE OUT 
;7PUSH CHARACTER TO BE TYPED ONTO STACK 
3;BR IF IT ISN'T THE TERMINATOR 
7: 1F TERMINATOR POP IT OFF THE STACK 
; RESTORE RO 
7 ADJUST RETURN PC 
e. URN 


: SBRANCH IF <HT> 
7 7BRANCH IF NOT <CRLF> 


:sPOP <CR><LF> EQUIV 
7: TYPE A CR AND LF 


:;CLEAR CHARACTER COUNT 

3:GET NEXT CHARACTER 

+60 TYPE THIS CHARACTER 

S IT TIME FOR A nen CHARS. ? 

F O GET NEXT CHAR. 
NEEDED 


G 

OF FILLER CHARS. 
HE NULL CHAR, 
A NULL NEED TO BE TYPED? 

NO=-GO POP THE NULL OFF OF STACK 
PE A NULL 
NOT COUNT AS A COUNT 


3;GET 
> ; AND 
: DOE 


_s. a 


LLL LL LE LS EE OCT TE Ue tt tt ei tt oo =< 


JOSE 


84 


CZRMTBO RMOS/3/2 DR CMPT TST 


TYPE ROUTINE 


025139 


112716 
004737 


005726 


100375 


000040 
025010 
000007 


154144 
154140 
177600 
000023 
154120 
154114 


177600 
000021 


154076 


000002 
000015 


025126 
000012 
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025126 


154070 
000002 


000002 


;HORIZONTAL TAB PROCESSOR 


8$: 
9$: 


STYPEC: 


101$: 


102$: 
10$: 


1$: 


I 
$CHARCNT: 


MOVB 
JER 


. WORD 


STYPEX: RTS 


ES ee ee ee 


#* | (SP) 
PC, $TYPEC 
#7, $CHARCNT 
9$ 

(SP) + 
2$ 
a$TKS 

10$ 
@$TKB,-(SP) 
#177600, (SP) 
#SXOFF, (SP) 
102$ 
asTKs 

101$ 
a$TKB, (SP) 
#177600, (SP) 
#SXON, (SP) 
101$ 

(SP) + 

asTPs 

0 


10$ 
2(SP) ,aSTPB 
> ahead 


SCHARCNT 
STYPEX 
ALF .2(SP) 
STYPEX 
(PC) + 


0 
PC 


a ee TAB WITH SPACE 
ss TYPE A SPACE 
+ +BR “wih NOT AT 


‘POP SPACE OFF STACK 
;;GET NEXT CHARACTER 


: i CHAR IN KYBD BUFFER? 
IF NOT 


;GET CHAR 
«STRIP as BITS 
iZWAS CHAR XOFF 

3;7BR IF NOT 


;zWAIT FOR CHAR 

::GET CHAR 

szSTRIP IT 

3zWAS IT XON? 

7;BR IF NOT 

zzF IX STACK 

;;WAIT UNTIL PRINTER IS READY 
3z;LOAD CHAR TO BE TYPED INTO DATA REG. 
3231S CHARACTER A CARRIAGE RETURN? 
3 BRANCH IF NO 

a. CHARACTER COUNT 

3a]8 Cong ee A LINE FEED? 


;; COUNT THE CHARACTER 
;; CHARACTER COUNT STORAGE 


SEQ 0097 


CZ7RMTBO RMOS/3/2 DR CMPT TST 
APT COMMUNICATIONS ROUTINE 


Se eet 
a - 


025132 


025376 


112737 
112737 
000403 
112737 


000001 
000001 


000001 


025374 
000001 


001226 
001230 
000004 


000004 
000002 
177776 
024576 
025376 
001232 
001212 


025374 
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025576 
025374 


025376 


001232 
001233 


000004 


001212 


025306 
000004 


001214 
000004 


$ATY1: 
SATY3: 


SATY4: 
SATYC: 


1$: 


2$: 


12$: 


SMFLG: 
$LFLG: 
SFFLG: 


APTSIZE 


APTENV 


APTSPOOL 
APTCSUP 


APT COMMUNICATIONS ROUTINE 


ett eee eee eR RRR RRR RRR RRR RR ERR RR RRR REE REE ER EE PERE SEE EE Ee ee ee 


MOVB 
MOVB 


BR 
MOVB 


#1 ,SFFLG 
#1, $MFLG 
TYC 


$A 

#1, SFFLG 
RO,-(SP) 
R1,~(SP) 
SMFLG 


5$ 
#APTENV, SENV 


GOP TSPOOL . SENT 


04 (S?) ,RO 
#2,4(SP) 
SMSGTYPE 


RO, SMSGAD 
(RO) + 


2$ 
$SMSGAD , RO 
RO 


RO, $MSGLGT 
> Ti aah 


a4 (SP) .4$ 
#2.4(SP) 
177776, =(SP) 
PC. STYPE 


SFFLG 
1 


SMF 
(SP)+,R1 
(SP)+,RO 
PC 

0 


0 
0 


;;TO REPORT FATAL ERROR 
:3T0 TYPE A MESSAGE 


:2TO ONLY REPORT FATAL ERROR 


3zPUSH RO ON STACK 
37PUSH R1 ON STACK 
oh ee 2 TYPE A MESSAGE? 


NO 
: :OPERATING U UNDER APT? 
i: SHOULD 7 MESSAGES? 


IF NO 
> GET MESSAGE ADDR. 
; ;BUMP RETURN ADDR. 
ame IF DONE W/ LAST XMISSION? 
3I1F NOT: WAIT 
;7PUT ADDR IN MAILBOX 
:zFIND END OF MESSAGE 


:;SUB START OF MESSAGE 

3:GET MESSAGE LNGTH IN WORDS 
:;PUT LENGTH IN MAILBOX 

:; TELL APT TO TAKE MSG. 


zzPUT MSG ADDR IN JSR LINKAGE 
RETURN ADDRESS 

: PUSH 199776 ON STACK 

-:CALL TYPE MACRO 


‘ee REPORT FATAL ERROR? 


BR 
: [RUNNING UNDER APT? 
NOT: BR 
 3F INISHED LAST MESSAGE? 
NOT: WAIT 


>;GET ERROR 4 
;BUMP RETURN ADDR. 
S23 TELL APT TO TAKE ERROR 
>: CLEAR FATAL FLAG 
3;;CLEAR LOG FLAG 
7;CLEAR MESSAGE FLAG 
:zPOP STACK INTO R1 
: POP STACK INTO RO 
URN 


RE 

; ;MESSG. FLAG 
LOG FLAG 

: FATAL FLAG 


SEQ 0096 


ee ee ee - 


025450 


025452 


C25556 
025560 


012737 
012737 
010046 


CZRMTBO RMOS/2/2 DR CMPT TST 
POWER DOWN AND UP ROUTINES 


025552 
000340 


153520 
025556 
025452 


025552 


025556 
153452 


025400 
000340 


000020 
023616 


012 
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000024 
000026 


000024 


000024 


000024 
000026 


000002 


120 


~SBTTL POWER DOWN AND UP ROUTINES 


SERRA AAA AERA REREERERERTHHEHHE Ree 


“POWER DOWN ROUTINE 
$PWRDN: MOV 


H#SILLUP ,Q@#PWRVEC ;;SET FOR FAST UP 
#340, a#PWRVEC+2 ;:PRIO:7 


RO,-(SP) 37PUSH RO ON STACK 
R1,~-(SP) 37PUSH R1 ON STACK 
R2,~(SP) ;7PUSH R2 ON STACK 
R5,-(SP) 3;;PUSH RS ON STACK 
R4,~(SP) 37PUSH R4 ON STACK 
R5,-(SP) 77PUSH R5 ON STACK 
@SWR ,=- (SP) :¢PUSH @5..% ON STACK 
SP, SSAVR6 ;SAVE SP 

ASPWRUP, @APWRVE C- SET UP VECTOR 

72 7 HANG UP 


CT REAR RARER ARATE ETEK AREREAARREEEAERAEREEREEREEREHEKEEEEHHEE 


;POWER UP ROUTINE 


SPWRUP : 


1$: 


SILLUP: 


S$SAVR6: 0 


SPOWER: 


ASCIZ 
EVEN 


ASILLUP ,QMPWRVEC ;;SET FOR FAST DOWN 


SSAVR6, SP ::GET SP 
SSAVR6 ;;WAIT LOOP FOR THE TTY 
tone 7ZWAIT wae THE INC 


(SP)+,aSWR 
R5 


~*~ 
w 
v 
~~ 
+ 

* 

x 
© 
x 


; STACK INTO RO 
#SPWRDN , A#PWRVEC SET UP THE POWER DOWN VECTOR 
#340, aMPWRVEC+2 ;:PRIO:7 

;REPORT THE POWER FAILURE 
; ; POWER FAIL MESSAGE POINTER 


SPOWER 
#20,2(SP) ;sCLEAR *'T’* BIT 
$TBIT 7:CLEAR THE ‘'T’’ BIT FLAG 
3 THE POWER UP SEQUENCE WAS STARTED 
2 ;: BEFORE THE POWER DOWN WAS COMPLETE 


:zPUT THE SP HERE 
<15><12>' POWER’ 


SS re ee ee eee Se eee 


SEQ 0099 


87 


ee ee ne 
ER -eeeeeE = 


CZRMTBO RMOS/3/2 DR CMPT TST 
| 5 INARY TO OCTAL (ASCi1) AND TYP 


025570 


025730 
025732 





026015 


000006 
026014 
026013 
000012 


026014 
177770 
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~SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


J REAR AAAAAAA AAA ERREEEEREEEEREREREEAT EAR 


SRTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 4-DIGIT 
:*OCTAL (ASCII) NUMBER AND TYPE IT. 
:*$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TyPE 


>*CALL: 

:* MOV NUM, = (SP) 

:* TYPOS 

Tad .<BYTE WN 

3* -<BYTE ™ / 
** 

+ 


- 


; NUMBER TO BE TYPED 
37CALL FOR TYPEOUT 
;;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
33M=1 OR 0 ' 
3, 1=TYPE LEADING ZEROS 
; ;0=SUPPRESS LEADING ZEROS 


:*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


:*$TYPOS OR $TYPOC 


:*CALL: 
; MOV NUM ,- (SP) 
:* T YPON 
> *CAL 
3* MOV NUM, =~ (SP) 
8 TYPOC 
$TYPOS: MOV @a(SP) ,-(SP) 
026013 MOVB 1(SP) ,SOF ILL 
MOVB (SP) +, SOMODE + 
ADD ee P) 
026015 $TYPOC: MOVB #1,S0F ILL 
026015 MOVB #6, SOMODE +1 
026012 $TYPON: MOVB #5, SOCNT 
MOV R3,~-(SP) 
MOV R4,-(SP) 
MOV R5,-(SP) 
MOVB +1,R4 
NEG RG 
ADD #6 RS 
MOVB R4, 
MOVB SOF ILL 
MOV 12(SP) RS 
CLR R3 
1$: ROL R5 
BR 3$ 
2$: ROL R5 
ROL R5 
ROL R5 
MOV R5,R3 
3$: ROL R3 
DECB SOMODE 
BPL 7$ 
as #177770,R3 
TST R4 
BEQ 5$ 
4$: INC RG 


; NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 


:*$TYPOC-—-ENTER HERE FOR TYPECUT OF A 16 BIT NUMBER 


; NUMBER TO BE TYPED 
:2CALL FOR TYPEOUT 


:zPICKUP THE MODE 

+ LOAD ZERO FILL SWITCH 
sNUMBER OF DIGITS TO TYPE 

; ZADJUST RETURN ADDRESS 


;3SET THE ZERO FILL SWITCH 
:zSET FOR SIX(6) DIGITS 
ssSeT ye ITERATION COUNT 


: 5 
:sGET THE NUMBER OF DIGITS TO TYPE 


7; SUBTRACT IT FOR MAX. ALLOWED 
ccaeee IT FOR USE 
T THE ZERO FILL SWITCH 
: :PICKUP THE INPUT NUMBER 
7: CLEAR THE OUTPUT WORD 
7 ROTATE MSB INTO ‘'C’* 


;;G0 DO MSB 
> FORM THIS DIGIT 
:;GET LSB OF THIS DIGIT 
+3 TYPE THIS DIGIT? 
;BR IF NO 
::GET RID OF JUNK 
sz TEST FOR O 
;; SUPPRESS THIS 0? 
::BR IF YES 
:;DON'T SUPPRESS ANYMORE O'S 


Ee EE EE EE ee eek 


SEQ 0100 


, kK 8 
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| BINARY TO OCTAL (ASCII) AND TYPE SEQ 0101 
| 
| 025734 952703 000060 BIS #°0,R3 ::MAKE THIS DIGIT ASCII 
| 025740 052703 600040 S$: BIS #' “R32 -:MAKE ASCII IF NOT ALREADY 
| 025744 110337 026010 MOVB ~R3, BS +: SAVE FOR TYPING 
025750 104401 026010 TYPE 4 +:GO TYPE THIS DIGIT 
025754 105337 026012 7$: DECB $0CNT :: COUNT BY 1 


025760 003547 BGT 2$ + /BR Ys MORE TO DO 
F DONE 


025764 005204 INC R4 i: INSURE LAST DIGIT ISN’T A BLANK 
025766 000744 BR 2$ :GO DO THE LAST DIGIT 
025770 012605 6$: MOV (SP)+,R5 :7RESTORE R5 


025774 012603 MOV, (SP)+_R3 * =RESTORE R3 
025776 016666 000002 000004 MOV 2(SP),4(SP) “:SET THE STACK FOR RETURNING 
6006 RETURN 
026010 000 8$: -BYTE 0 :7 STORAGE FOR ASCII DIGIT 
026012 000 S$OCNT: .BYTE 0 ::O0CTAL DIGIT COUNTER 
0 


026015 000 SOFILL: .BYTE >,ZERO FILL SWITCH 
000000 SOMODE: .WORD ; ;NUMBER OF DIGITS TO TYPE 


89 


CZRMTBO RMOS/3/2 DR CMPT TST 
CONVERT BINARY TO DECIMAL AND TYPE ROUTIN 


020200 
000020 
000055 
026232 
000040 


026222 


177777 


L 8 
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000001 


177777 


177776 


~SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


mAb ee eee RRR RRR RRR RRR RRRRRRRRRS REE E RE ER ERE REE EE ESET EERE PET EES 


TRTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A roe Ne 


: *SIGNED DECIMAL (ASCII) NUMBER AND TY 
POSITIVE OR NEGATIVE A 


WHE T THE 
MINUS SIGN WILL BE TYPED 


; *NUMBER IS 
:*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 


;*CAL 
+ 


$TYPDS: 


1$: 


2$: 
3$: 


4$: 


5$: 


8$: 


9$: 


MOV 
TYPDS 


: sREPLACED WITH SPACES. 


NUM ,=(SP) 


RO,-(SP) 


R 
SDTBL (RO) .R1 
R1,R5 


R2 
3$ 
R1,R5 
R2 

5$ 
(SP) 
7$ 
(SP) 


6$ 
1(SP) ,~1(R3) 
#'0.Re 


Re 
R2,(R3)+ 
(RO) + 
RO,410 
2$ 


8$ 
R5 Re 
(SP) + 


-1(SP) ,-2(R3) 
(R3) 


(SP)+,R5 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 


;;PUT THE BINARY NUMBER ON THE STACK 
3;GO TO THE ROUTINE 


3ZPUSH RO ON STACK 

3;PUSH R1 ON STACK 

7;PUSH R2 ON STACK 

3 ; PUSH ON STAC 

7;PUSH RS ON STACK 

77SET _ SWITCH AND SIGN 

:;GET THE INPUT 

7;BR IF INPUT IS PO 

3 MAKE THE BINARY NUMBER POS. 

; ASCII NUMBER NEG. 

3;ZERO THE CONSTANTS INDEX 
SET OUT POIN 


; UP THE PUT TER 
ZZSET THE FIRST CHARACTER TO A BLANK 
3 CLEAR THE BCD NUMBER 
fT THE CONSTANT 
7 FORM THIS BCD DIGIT 
DONE 


IF 
7; INCREASE THE BCD DIGIT By 1 


;zADD BACK THE CONSTANT 
+3 CHECK IF BCD DIGIT=0 
THROUGH IF 


IF 0 
:STILL > LEADING 0°S? 


se 


‘ 
-% 


:BR IF NO 
7; YES--SET THE SIGN 
;sMAKE THE BCD DIGIT ASCII 
as IT A SPACE IF NOT ALREADY A DIGIT 

THIS CHARACTER IN THE OUTPUT BUFFER 

2: JUST INCREMENT ING 

; CHECK THE TABLE INDEX 

;GO DO THE NEXT DIGIT 
7:G0 TO EXIT 
+ GET THE LSD 

:GO CHANGE TO ASCII 
; sWAS THE LSD THE FIRST NON-ZERO? 


:BR_ IF NO 
;SYES=~SET i HT) ay TYPING 


SEQ 0102 





— eee 


| mM 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0103 


026202 012600 MOV (SP)+,RO ; sPOP STACK INTO RO 
026204 104401 026232 TYPE $DALK “NOW TYPE THE NUMBER 
026210 016666 000002 000004 MOV 2(SP) ,4(SP) ‘ADJUST THE STACK 
026216 012616 MOV (SP) +; (SP) 

026220 000002 RTI : RETURN TO USER 
026222 023420 $DTAL: 10000. 

026224 001750 1000. 

026226 000144 00 

026230 000012 10. 

026232 $DBLK: .BLKW 4 


A 
canner reer se ssh ese se esses ee eet as —_————- = . 
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| CZRMTBO RMOS/3/2 DR CMPT TST 
TTY INPUT ROUTINE 


rr 


— -—- ew ee 


026242 


° 
026352 
026356 
026560 
026364 
026570 


026372 
026376 
02 


022737 
001074 
105777 
100071 


117746 
042716 


021627 


000176 
152702 
152676 
177600 
000007 


001150 


026677 
152620 


152614 
177600 


000025 


026654 
000006 


000015 
000004 
000002 
000006 
001207 
001151 
000100 


025010 
000060 
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001154 


000001 


152540 


000001 


152516 | 


208: ADD #6,SP 
| 19 


~SBITL TTY INPUT ROUTINE 


SAAR ARATE AAA EERE EAA A AEE e 


* ENABL LSB 


DIRE IIIIDUIOIIIIUIDIOUIIUIIUIISOIOUIIII TREE TREE E EEE 
« kSOF TWARE SWITCH REGISTER CHANGE ROUTINE. 
;*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
:*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
g sWHEN _OPERAT ING IN TTY FLAG MODE. 


$CKSWR: CMP ASWREG , SWR ;315 THE SOFT-SWR SELECTED? 
"BNE 15$ 3 CH IF NO 
TSTB @$TKS re THERE? 


BPL 15$ :IF NO, DON'T WAIT AROUND 
MOVB  a$TKB,~(SP) +:SAVE THE CHAR 
BIC #°C177, (SP) iS tw ¢ THE ASCII 


CMP #7, (SP)+ IS IT A CONTROL G? 

BNE 15$ 33NO, RETURN TO USER 

CMPB SAUTOB , #1 ;ARE WE RUNNING IN AUTO-MODE? 
BEQ 15$ "BRANCH IF YES 


;sECHO THE CONTROL-G (“*G) 


TYPE »SCNTLG 
WR 72 TYPE CURRENT CONTENTS 


$GTSWR: TYPE . SMS 
MO SWREG ,- (SP) 


V ++ SAVE SWREG FOR TYPEOUT 
TYPOC 3GO TYPE--OCTAL ASCII(ALL DIGITS) 
TYPE . SMNEW : = PROMPT FOR NEW SwR 
19$: CLR -(SP) 3;7;CLEAR COUNTER 
CLR ~(SP) 37 THE NEW SWR 
7$: TSTB a$TKS 3; CHAR THERE? 
BPL 7$ :71F NOT TRY AGAIN 


MOVB @$TKB,-(SP) 


::PICK UP CHAR 
BIC #°C177, (SP) 


;3MAKE IT 7-BIT ASCII 


9$: CMP 231 IT A CONTROL-U? 
:BRANCH IF NOT 
izves, ECHO CONTROL-U (“U) 
GNORE PREVIOUS INPUT 


::LET'S TRY IT AGAIN 


a aes 


10$ CMP (SP),415 ——g IT A <CR>? 
BNE 16% ; BRANCH IF NO 
TST 4(SP) >; YES, IS IT THE FIRST CHAR? 
BEQ 11$ ; ;BRANCH IF YES 
MOV 2(SP),aSwWR +s SAVE NEW SWR 
11$ ADD #6, ;CLEAR UP STACK 
14$ TYPE , SCRLF =: ECHO <CR> AND <LF> 
CMPB SINTAG, 41 ; ;sRE-ENABLE TTY KBD INTERRUPTS? 
BNE 15$ ; ;BRANCH IF NOT 
MOV #100,a$7KS : ;RE-ENABLE TTY KBD INTERRUPTS 
15$: RT] > ;RETURN 
16$: JSR PC ,$TYPEC >;ECHO CHAR 
CMP (SP) ,#60 a < Q? 
BLT 18$ sBRANCH IF YES 


SEQ 0104 


rr 
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| TTY INPUT ROUTI SEQ 0105 
G00067 cmp (SP) . #67 >; CHAR > 7? 
| BGT 183 a3 F YES 
000060 BIC #60, (SP)+ 7zSTRIP-OFF ASCII 
000002 TS? 2(SP) 21S aes THE FIRST CHAR 
BEQ 17$ 3a H IF YES 
ASL (SP) 7zNO., SHIFT PRESENT 
ASL (SP) za CHAR OVER TO MAKE 
ASL (SP) zz: ROOM FOR 2 
000002 17$: INC 2(SP) 7zKEEP COUNT OF CHAR 
177776 BIS -2. SP), (SP) 3zSET IN NEW CHAR 
BR 7$ 3:GET THE NEXT ONE 
001206 18$: TYPE , SQUES >: TYPE ?<CR><LF> 
026522 000720 —- “ae 20$ 7zSIMULATE CONTROL-U 


t 
5 EAA ARERARERERERERS 


2 STIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
** 


:* RDCHR :: INPUT A SINGLE CHARACTER FROM THE TTY 
- RETURN HERE >: CHARACTER IS ON THE STACK 
i* ::WITH PARITY BIT STRIPPED OFF 
026524 011646 SRDCHR: MOV (SP) ,-(SP) :PUSH DOWN THE PC 
026526 016666 000004 000002 MOV 4(SP) ,2(SP) 27 SAVE THE PS 
026534 105777 152420 1$: TSTB = aSTKS ::WALT FOR 
026540 100375 BPL 1$ A CHARACTER 
026542 117766 152414 000004 MOVB  a$TKB,4(SP) -:READ THE T 
026550 042766 177600 000004 BIC #°C<177>,4(SP) = OGET RID OF a IF ANY 
026556 026627 000004 000023 CMP 4(SP) ,#23 :31S IT A CONTROL-S? 
026564 001013 BNE 3$ “BRANCH IF NO 
026566 105777 152366 2$: TSTB =. aSTKS ::WAIT FOR A CHARACTER 
026572 100375 BPL 2$ : : LOOP UNTIL ITS THERE 
026574 117746 152362 MOVB  a$TKB,-(SP) T CHARACTER 
026600 042716 177600 BIC #°C177, (SP) =:MAKE IT 7-BIT ASCII 
026604 022627 %00021 CMP (SP)+, #21 :z1S IT A CONTROL-0Q? 
026610 001366 BNE 2$ ::IF NOT DISCARD IT 
026612 000750 BR 1$ 7: YES, RESUME 
026614 026627 000004 000021 38: CMP 4(SP) ,#$XON *:1S IT A RANDOM X 
026622 001744 BEQ 1 ; 3BRANCH IF YES 
026624 026627 000004 000140 CMP 4(SP) ,#140 71S IT UPPER CASE? 
026632 002407 BLT :: H IF YES 
026634 026627 000004 000175 CMP 4(SP) #175 ::1S IT A SPECIAL CHAR? 
026642 003003 BGT 4$ ; 3BRANCH IF YES 
026664 042766 000040 000004 BIC #40,4(SP) =MAKE IT UPPER CASE 
026652 000002 4$: RT] ::G0 BACK TO USER 
026654 136 125 615 $CNILU: .ASCIZ /*U/<15><12> : CONTROL 
026661 136 107 015 $CNTLG: .ASCIZ /*G/<15><12> “CONTROL ‘'G’' 
02 015 012 123 SMSWR: .ASCIZ <15><12>/SwWR = 
026677 040 116 SMNEW: .ASCIZ / NEW = / 


' CZRMTBO RMOS/3/2 DR 
| SAVE AND RESTORE RO-RS ROU 


026710 


026734 
026740 016646 000022 
026744 000002 


026746 
026746 


CMPT TST 
TINES 
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-SBTTL SAVE AND RESTORE RO-R5S ROUTINES 


z*SAVE RO-R5 
7 *CALL: 
*® 

< eTOP=--(+16) 

p* +2---(+18) 

7* +4---R5 

2% +6=--RS 

s¢ *§=--R5 

3*+10---R2 

7*+12---R1 

3*+14---R0 

SSAVREG: 
MOV 
MCV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 

;*RESTORE RO-R5 

:*CALL: 

3° RESREG 

SRESREG: 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RT] 


RO,-(SP) 
R1,~-(SP) 
R2,-(SP) 
R3,-(SP) 
R4,-(SP) 
R5,-(SP) 
22(SP) ,~(SP) 
22(SP) ,-(SP) 
22(SP) ,-(SP) 
22(SP) ,- (SP) 


(SP)+,22(SP) 


Sf PSA AAA ARATE AERA AAERAHAAAARARAREERERARAEERREREHEEHE EEE EE 


VREG 
; *UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 


3zPUSH RO ON STACK 
7z;PUSH R1 ON STACK 
7Z7PUSH R2 ON STACK 
ze R3 ON STACK 
7Z7PUSH R4 ON STACK 

R5 ON STACK 
77; SAVE PS OF MAIN FLOW 
7ZzSAVE PC OF MAIN FLOW 
77SAVE PS OF CALL 
SZzSAVE PC OF CALL 


‘POP STACK INTO RO 


cm eee LT 


SEQ 0106 


CZ7RMTBO RMO5/3/2 DR CMPT TST 


| 
= 5 
} 


a ste scseetieenentns ae = 


027004 104412 
627006 016602 000002 
027012 012700 027164 
027016 010666 000002 
027022 012201 


012202 
C27026 012737 000012 
027034 9012704 027114 
027040 012705 027116 
005003 


027072 052703 000050 


027152 


MACRO 


027102 


v04.00 
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DOUBIE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


-SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


FSET AERA AREAEARE RARER AARERAEEEEEAEEHEERERHKHREE 


SRTHIS ROUTINE WILL CONVERT A 32-BI1T BINARY NUMBER TO AN a Sere 
sSpositives NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 
-* 


*CALL 


$DB2D: 


1$: 


3$: 


4$: 


STNPWR: 


MOV 
JSR 
RE TURN 


SAVREG 





#PNTR,=(SP) 
PC, av$DB2D 


(R4)+,R1 
R2 


(R4)+,R2 
(R5)+,(R5)+ 
#°0,23 


y byes 


:sPOINTER TO LOW WORD OF BINARY NUMBER 
is FIRST ADDRESS OF ASCIZ 
S ON THE STACK 


sSAVE REGISTERS 
;;PICKUP THE DATA POINTER 
+ GET ADDRESS OF *‘SDECVL'’ STRING 
T ADDRESS OF egg ts STRING ON STACK 
::PICKUP THE BINARY NUMBER 


23 SET UP TO DO 10 CONVERSIONS 
: sADDRESS OF TEN POWER 


77CLEAR PARTIAL 

: SUBTRACT TEN POWER 

::BR IF TEN POWER TO LARGE 
ay 1 TO PARTIAL 

7 RESTORE SUBTRACTED VALUE 
::MOVE TO NEXT TEN POWER 


3; CHANGE PARTIAL TO ASCII 
77SAVE IT 


;;BR IF NO 
32 TERMINATOR 
; ZRESTORE REGISTERS 
URN 
ry i 0E09 
321.0E08 
321.0E07 
321.0E06 
3:1.0E05 
321.0E04 
321.0E03 
321.0E02 


ee ees. er ee ek a et - e 


SEQ 0107 


a —_— ee ee -_ - 


—— 
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DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE SEQ 0108 


027154 00012 12 :21.0E01 

027156 000000 0 

027160 000001 1 32 1.0E00 

027162 000000 0 

927164 SDECVL: .BLKB 12. RESERVE STORAGE FOR ASCIZ STRING 


— Se ae 
Sy ES Se eee EE Ee SE ee ee OE eee ate |e eee se oeEES Ge ae 


CZRMTBO RMOS/3/2 DR (MPT TST 
DOUBLE LENGTH BINARY TO OCTAL ASCII] CONVERT ROUTINE 


-SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 


CREAR AAA AREER REREAAREARAREARAREHERHREHEREREEHEHERA Eee 


SSTHIS ROUTINE WILL CONVERT . 32-BIT UNSIGNED BINARY NUMBER TO AN 
:*UNSIGNED OCTAL ASCIZ NUMBER 


#PNTR,=-(SP) 


g g 
™ 
Nm 
3 


ee ee eo eee AT 


EEE 


000002 
027317 
000014 
177770 


000002 


000960 


a ee ee -<--- 


> * CALL 


1$: 


2$: 
3$: 


SOCTVL: 


MOV 
JSR 
RE TURN 


SAVREG 


-BLKB 


PC, a#$DB20 


2(SP),R1 


7 oe 
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SEQ 0109 


;sPOINTER [O LOW WORD OF BINARY NUMBER 
;iCALL THE ROUTI 
s3THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 


3#SAVE ALL REGISTERS 


#SOCTVL+13.,R5 
2. RS 


(R1)+,RO 
(R1)+,R1 


R 
R2,-(R5) 
2 


+ sPICK UP THE POINTER TO 1 Ow WORD 
sPOINTER TO DATA TABLE 
;:D0 ven CHARACTERS 


: SLOWER WORD 
;ZHIGH WORD 
i: TERMINATOR 
7ZPUT CHARACTER IN DATA TABLE 
+GET THIS DIGIT 
3;COUNT THIS CHARACTER 
+ ¢BR IF NOT THE LAST DIGIT 
-;BR IF IT IS THE LAST DIGIT 
TALL ie ott DONE -ADJUST S ere At FIRST 
ssASCIZ C & PUT IT ON THE S 
RES “ORE "mi REGISTERS 
+ RETURN TO USER 
:¢POSITION THE MASK FOR THE LAST DIGIT 
7zPOSITION THE BINARY NUMBER FOR 
ss THE NEXT OCTAL DIGIT 


7=;MASK OUT ALL JUNK 
> «MAKE THIS CHAR. ASCII 

:GO PUT IT IN THE DATA TABLE 
7 TRESERVE DATA TABLE 


Se res ee. eee - 


CZRMTBO RMOS/3/2 DR CMPT TST 
SCOPE HANDLER ROUT INE 


027320 


027470 
027474 


027532 


104407 
032777 
0071402 
000137 
000416 


013746 
012737 


000002 
012637 
022737 
001430 


012737 


040000 
027730 


000004 
027364 
177060 
000004 


000004 


000400 
151544 
001117 
177777 
000004 
027454 
177766 


17/777 
027470 


000004 
177777 
000001 
000001 
001154 
000000 
000176 


MACRO V0G.00 4=APR=81 18:12:15 


151624 


000004 


151552 
001116 


024252 
000004 


024252 
024252 


024252 
024252 
177766 


001154 
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~SBTTL SCOPE HANDLER ROUTINE 


OPIS I IIOP ic Trr iris ir iii titi ii iitititititiiity 
 STHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
:*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
; *THE _ ath oes BY THIS ROUTINE ARE: 


L 
INHIBIT ian 


$SCOPE : ‘ 
1$: BIT 


9$: 
; AARRASTART 
$xXTSTR: BR 


5$: CMP 
2$: TSTB 


2000$: 


2001$: 
2002$: 


LOOP ON 


RROR 
LOOP ON TEST IN SWR<7:0> 


3; SCOPE= 


#81T14,aSWR 
9$ 
SOVER 


OF CODE FOR THE XOR 
6$ 


Q#ERRVEC,-(SP) 
#5$, a#ERRVEC 
a#177060 


(SP) + ,@#ERRVEC 
$SVLAD 


(SP)+, (SP)+ 
age + ,@FERRVEC 


CODE FOR THE XOR TESTERMAMAM 
@SwR 


#81T08, 

2$ 

aswR, $TSTNM 
SOVER 

SERFLG 

3$ 

#~1, CPSAVE 
2003$ 
ERRVEC,-(SP) 

#2000$, ERRVEC 
177766. CPSAVE 
001$ 


2 
#-1, CPSAVE 
#2001$, (SP) 


(SP) +, ERRVEC 
#~-1 , CPSAVE 
#51700, CPSAVE 
#B1T00,177766 
SWk (SP) 


a(SP) ,=(SP) 
#176, SWR 


IOT 


eel : LOOP 5 as TEST? 


=0 
;;JUMP OVER SCOPE ROUTINE 


it aan 
7 1F RUNNING ON THE °XOR’* TESTER CHANGE 
ZTHIS INSTRUCTION TO A ‘NOP’’ (NOP=240) 
S ISAVE THE CONTENTS OF THE ERROR VECTOR 
+3 SET FOR TIMEOUT 
:TIME OUT ON XOR? 
; | RESTORE THE ERROR lean 
:GO TO THE NEXT TEST 
SICLEAR THE STACK AFTER A TIME OUT 
+ sRESTORE THE ERROR VECTOR 
LOOP ON THE PRESENT TEST 


:;LOOP ON SPEC. TEST? 

7 I0N THE RIGHT TEST? 

HAS AN. ERROR OC CURRED? 

eee te meout WAS PREVIOUSLY RECORDED 
NE IF SO 


SWR<7:0> 


:sSETUP ‘TRAP* RETURN ADDRESS 
:zMOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 


:sSET CPU ERROR REGISTER TIMEOUT INDICATOR 
72SETUP RETURN ADDRESS 


:sRESTORE CONTENTS OF ERROR VECTOR 
¢3SEE M es HAS CPU ERR REG TIMEOUT INDICATION 


; BRANC 
;3SEE IF THE POWER MONITOR BIT IS ON 
;BRANCH TO CONTINUE ROUTINE IF CLEAR 
::CLEAR THE BIT FOUND TO BE SET 
:sSAVE SWR 7 
:;SAVE SWR VALUE 
:2GET SOF TWARE SWR ADDRESS 


OS EE EEO eee ee — eee ee ee 


SEQ 0110 


/ CZRMTBO RMOS/3/2 DR CMPT TST 


—_— —_ — = — 


027540 


027742 
027744 


SCOPE HANDLER ROUTINE 


011677 
012676 
012637 
123737 


000002 
003720 


001176 
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MOV (SP) ,@SWR 


151402 BIC #31109, aSwR 
EMT 177 
MOV (SP) +,a(SP) 
MOV (SP) +, SWR 
2003$: 
001117 CPB SERMAX , SERFLG 
151352 BIT #B1T09,aSWR 
BEO 4$ 
001122 7$: MOV SLPERR,$LPADR 
BR SOVER 
4$: CLRB = $ERFLG , 
CLR $TIMES 
BR 1$ 
151320 38: BIT #B1T11,aSWR 
BNE 1$ 
TST $PASS 
BEQ 1$ 
INC $ICNT 
001120 CMP STIMES,SICNT 
BGE SOVER 
001120 1$: MOV #1,$ICNT 
001176 MOV SMXCNT,S$TIMES 
$SVLAD: iNCB  $TSTNM 
001216 MOVB = $TSTNM, $TESTN 
MOV (SP), $LPADR 
MOV (SP). $LPERR 


CLR $ESCAPE 
31 MOVB #1, SERMAX 
SOVER: $TSTNM,@D1SPLAY 
$SLPADR, (SP) 


$MXCNT: 2000. 


LILLE EL ET OC TE a ee a ee 


3;GET CURRENT SWR VALUE 
; A ALLOW LOOP ON ERROR ON THIS ERROR 
Zeal SPECIAL POWER FAIL BIT ERROR CALL 
RESTORE SWR TO ORIGINAL VALUE 
‘ RESTORE SWR ADDRESS 


i iMAX. ia FOR THIS TEST OCCURRED? 
; /LOOP ON ERROR? 

;BR_IF NO 
;7SET LOOP ADDRESS TO LAST SCOPE 


;.ZERO i ERROR FLAG 

;;CLEAR THE NUMBER OF jit TO MAKE 
;sESCAPE TO THE NEXT TEST 

He cael 


330 FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
i+ INCREMENT ITERATION COUNT 
HECK THE NUMBER OF ITERATIONS MADE 
: :BR IF MORE ITERATION REQUIRED 
:REINITIALIZE THE ITERATION COUNTER 
T NUMBER OF ITERATIONS TO DO 
; COUNT TEST NUMBERS 
;SET TEST NUMBER IN APT MAILBOX 
:: SAVE SCOPE LOOP ADDRESS 
‘saes ERROR LOOP ADDRESS 
eo THE ESCAPE FROM ERROR ADDRESS 
: Y ALLOW ONE(1) ERROR ON NEXT TEST 
: DISPLAY TEST NUMBER 
FUDGE x ADDRESS 
= FIXES P 
7 MAX. NUMBER OF ITERATIONS 


TO SIZE MEMORY 


027746 


CZRMTBO RMOS/3/2 DR CMPT TST 


030076 
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000114 
000116 


000004 


~SBTTL ROUTINE TO SIZE MEML..Y 


eee eee ee RRR RRR RR RRR RRR RRRRRRE RRR RES ER ES ERR RRR REPRE RE REP COOSA SOS 


s*CALL: 


JSR 


PC,$SIZE 


bes RE TURN 
:*$LSTAD WILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION 


SSIZE: 


SP ,RO 
SET THE ERRVEC PS TO THE PRESENT P 
(SP)+, ve) ee 2 


1$: 


2$: 


$LSTAD: 


MOV 


. WORD 


RO,=-(SP) 


#116,a114 
ARTI ,a#116 
aMERRVEC, sere 
AAERRVEC +2, =( 


#2% ,AMERRVEC 


(SP) +,a#116 
(SP)+,a4114 
R1,$LSTAD 
(SP)+,R1 
Slee 


p 
0 


;;SAVE RO ON THE S!ACK 
;;SAVE R1 ON THE STACK 
;;SAVE MEMORY ERROR VECTOR PS & PC 


;; IGNORE PARITY ERRORS WHILE SIZING 
crams PRESENT ERROR VECTOR PS & PC 
“ci (SA¥e THE STACK POINTER 


PUSH OLD PSW AND PC ON STACK 
72SAVE THE PSW IN @#ERRVEC +2 
ET FOR TIMEOUT 
S TRIRST ADDRESS 
oo ee THIS ADDRESS 
sSTEP TO NEXT ADDRESS 
:3 TRY ANOTHER 


ROP BACK 
RESTORE THE STACK 


oF 
(SP)+, aWERRVEC +2" RESTORE ERROR VECTOR 
(SP) + ,@#ERRVEC 


: RESTORE MEMORY ERROR VECTOR 
;;LAST ADDRESS 

; RESTORE R1 

;sRESTORE RO 


>: CONTAINS THE LAST ADDRESS 


SEQ O1)¢ 


J 9 
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TRAP DEC SEQ 0115 


-SBTTL TRAP DECODER 


DI III IOIOIIIIOISIIISIEIIOIIIIOIIIDIUIDIOOISIIUIDIIUIOIUIIII Entiat 
 STHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘’TRAP’’ INSTRUCTION 
:*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
| :*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 

:*GO TO THAT ROUTINE. 


| 
| 030100 010046 $TRAP: MOV RO,-(SP) 77 SAVE RO 
| 030102 016600 000002 MOV 2(SP) .RO 24 GET | TRAP ADDRESS 
| 030106 005740 TST =(RO) SiBACKUP BY 2 
030110 111000 , MOVB (RO) ,RO $3GET RIGHT BYTE OF TRAP 
| 030112 006300 ASL RO ::POSITION FOR INDEXING 
030114 016000 030134 MOV $TRPAD(RO),RO  :: INDEX TO TABLE 
030120 000200 RTS RO ::GO0 TO ROUTINE 
::THIS IS USE TO HANDLE THE ‘‘GETPRI'’ MACRO 
630122 011646 $TRAP2: MOV (SP) ,=(SP) ::MOVE THE PC DOWN 
030124 016666 000004 000002 4(SP),2(SP) ::MOVE THE PSW DOWN 
030132 000002 RT] ; RESTORE THE PSW 
.SBTTL TRAP TABLE 
;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
7*BY THE "'TRAP’' INSTRUCTION. 
: ROUT INE 
030134 030122 $TRPAD: .WORD TRAP2 
030136 024576 STYPE ;:CALL=TYPE TRAP+1(104401) TTY TYPEOQUT ROUTINE 
030140 025614 $TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
030142 025570 $TYPOS ::CALL=TYPOS  TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
030144 025630 STYPON ::CALL=TYPON  TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
030146 026016 STYPDS ;:CALL=TYPDS | TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
030150 026312 ~~ SGTSWR ;;CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SETTING 
030152 026242 SCKSWR ;;CALL=CKSWR TRAP +7 (104407) TEST FOR CHANGE IN SOFT-SwWR 
030154 026524 DCHR ;::CALL=RDCHR TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
030156 023150 SRDLIN ;::CALL=RDLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
930160 026710 $SAVREG ::CALL=SAVREG TRAP+12(104412) SAVE RO-RS ROUTINE 
030162 026746 SRESREG ;:CALL=RESREG TRAP+13(104413) RESTORE RO-RS ROUTINE 
2 030164 022 $DSPLY ::CALL=DISPLY TRAP+14(104414) ROUTINE TO TYPE ERROR MESSAGES 
000032 STERM=.-$TRPAD 


ES ee ee. ee ee ee - 


| 


ee el ee eed ed eed eed od od 
OWOWONAVSWH-O OWOWNOURWHR) oa 


40 
43 
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-SBTTL SINGLE/DUAL PORT RH/RM DRIVER (REV 6.5) 1981 
sNEW DRIVE TYPE ID FOR RMO2 seennnnnnn 


210-AUG=77 xeenakannen 


:10=-MAR=78 THE SC, SC5 CHANGES 
: NEW DRIVE TYPE 1p FOR RMOS wtannnnnne 


31980 xeenankenen 


:COPYRIGHT (C) 1977,1981 
sDIGITAL eon O1esG CORP. 


. Y MA 
UTHOR(S): JIM LACEY/CHUCK HESS 
REVISED BY: MIKE LEAVITT 11-APR=80, 27-MAR~81 


SC EAA ARERR KEKEEEEEHEEKEEEREEEKEREEERERERKEEEHEK 


; STORAGE on tale gs 1S RMER2, AND RMMR2 ON AN ERROR ‘’2’’ 


;RMERR = RMDS 

sRMERRS+2 = RMER1 
sRMERRS+4 = RMER2 
sRMERRS+6 = RMMR2 


030166 000000 000000 QO00000 RMERRS: .WORD 0,0,0,0 


030 
a 





: TABLE OF DRIVE ACTIVE INDICATORS (DRVACT=8 BYTES) 
sDRVACT=0 IF DRIVE IS IDLE 
sDRVACT>O IF DRIVE IS ACTIVE WITH A COMMAND 
sDRVACT<O IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION 


DRVACT: .BYTE 0 zDRIVE O 
-BYTE 0 :DRIVE 1 
BYTE O sDRIVE 2 
BYTE O :DRIVE 3 
BYTE 0 sDRIVE 4 
BYTE 0O :DRIVE 5 
-BYTE QO :DRIVE 6 
-BYTE 0 :DRIVE 7 

; TABLE OF DRIVE SaaS INDICATORS (DRVSTA=8 BYTES) 

zDRVSTA=0 IF DRIVE IS OFFLINE OR NONEXSITENT 
=DRVSTA>O IF DRIVE IS ONLINE 
sDRVSTA<O IF DRIVE IS UNSAFE 

DRVSTA: .BYTE QO :DRIVE O 

” BYTE QO ;DRIVE 1 
-BYTE 0 sDRIVE 2 
-BYTE 0 sDRIVE 3 
BYTE O SDRIVE 4 
-BYTE 0 sDRIVE 5 
-BYTE O sDRIVE 6 
BYTE O :DRIVE 7 
TABLE OF DRIVE TYPES (DRVTYP=8 BYTES) 
: TYP=0 IF DRIVE IS NONEXISTENT (DRVSTA=0, ALSO) 
sDRVTYP=7 IF DRIVE IS RMOS xxexxe 
SANT YPod IF DRIVE IS RMO2 xxxnne 
P=4 IF DRIV 3 


SEQ 0114 


| 

de | 
| 

| 

| 


32 030216 


65 


030236 
73 030237 


86 
87 030250 
88 
89 
90 
91 
92 
93 030252 
94 
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;DRVTYP==1 IF NOT RMO5/3/2 


DRVTYP: .BYTE 0 ;DRIVE 0 
BYTE O ;DRIVE 1 
-BYTE OQ : DRIVE ¢ 
BYTE OQ ;DRIVE P 
-BYTE 0 iDRIVE 4 
BYTE Q ;DRIVE 5 
BYTE O iDRIVE 6 
BYTE QO sDRIVE 7 
3; TABLE OF Rs, PORT INITIALIZATION INDICATORS 
DPINT=0 IF INITIALIZATION IS NOT ACTIVE ON THE ORIVE 
:DPINT<O IF INITIALIZATION IS IN PROGRESS 
DPINT: .BYTE ¢ :DRIVE 0 
mrvte ¥ sDRIVE 1 
-BYTE O ;DRIVE 2 
-BYTE 0O sDRIVE 3 
-—BYTE O sDRIVE 4 
-BYTE O sDRIVE 5 
BYTE QO :DRIVE 7 


: TABLE OF Re wry DUAL PORT REQUESTS 
PRQS=0 IF THAT A DUAL PORT 


REQUEST IS NOT PENDING FOR THAT DRIVE 
‘ DPROS<O IF THAT A DUAL PORT REQUEST IS 


PENDING FOR THAT DRIVE 


DPROS: .BYTE 0 ;DRIVE 0 
BYTE 0 DRIVE 1 
BYTE 0 DRIVE 2 
BYTE 0 DRIVE 3 
BYTE 0 DRIVE 4 
BYTE 0 DRIVE 5 
BYTE 0 DRIVE 6 
BYTE 0 DRIVE 7 
; TRANSFER WAIT FLAG (TRNSWT=1 WORD) 
{THIS, 1S_A ONE WORD QUEUE. IT WILL CONTAIN THE ADDRESS OF 
;*DPB'* OF THE 1/0 OPERATION. 


TRNSWT: .WORD 0 


: SEARCH WAIT oie (SRCHWT=1 WORD) 
;THIS IS A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH OF 
; THE pg ae | ARE PERFORMING A SEARCH COMMAND FOR THE I/0 
sREQUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE 
EACH DRIVE IS ASSIGNED ONE BIT, STARTING AT BITOO FOR DRIVE 0. 


SRCHWT: .WORD 0 

;RM DRIVER ACTIVE FLAG (ACTDRV= 
ACTDRV=0 IF DRIVER I 

:ACTDRV>O IF DRIVER | 


ACTDRV: .BYTE 0 


wae. 
we. | 
Sw 

— oO ~< 

<-+- 
nee 
<= 
m 


me ae es -—_- 


SEG 0115 
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SINGLE/DUAL PORT RH/RM DRIVER (REV 6.5) 1981 


| 
Boag 
| 96 


3 
Oo 
WwW 
© 
™m 
ww 
Ww 


030264 


030266 


CONAUESWA =O OONAUSWH oO 


ed ed nd od td ot HO et I 


030310 


AV =SSRURAR 


000000 


177777 


177777 


177777 


177777 





a fn ROUTINE ACTIVE FLAG (ACTSTR=1 BYTE) 
CTSTR=Q IF SOFTWARE TIMER ROUTINE IS INACTIVE 
ACTSTR>O IF SOFTWARE TIMER ROUTINE IS ACTIVE 


ACTSTR: .BYTE 0 


sUNLOAD FLAG (ULDFLG=8 BYTES) 
;ULDFLG=0 IF NO UNLOAD COMMAND 
:ULDFLG>O IF UNLOAD COMMAND IN PROGRESS 
[ULDFLG<O iF UNLOAD COMMAND IN WAIT QUEUE 


ULDFLG: .BYTE Q DRIVE 0 
-BYTE Q DRIVE 1 
-BYTE 0Q ;DRIVE 2 
-BYTE QO sDRIVE 3 
-BYTE 0 sDRIVE 4 
-BYTE Q DRIVE 5 
-BYTE 9 sDRIVE 6 
-BYTE 0 sDRIVE 7 


:SAVE REGISTERS FLAG (SAVEFG =1 WORD) 
sSAVEFG <O IF SAVE THE RH/RM REGISTERS WHEN THE 
:OPERATION IS COMPLETED AS PER (DPB+14). 
;SAVEFG=0 IF SAVE THE RH/RM REGISTERS, AS PER 
: (DPB+14), AFTER AN ERROR. 


SAVEFG: .WORD 0 


sSEEK FLAG (SEEKFG=1 WORD) 
> SEEKFG=0 IF WHEN THE DISK ADDRESS ISN'T IN THE WINDOW 
:FOR A DATA TRANSFER START A SEARCH COMMAND 
>SEEKFG<O IF DATA TRANSFER WILL DO IMPLIED SEEKS. 
sDISREGARD THE WINDOW 


SEEKFG: .WORD <1 


; TIMEOUT TABLE (TIMER=8 WORDS) 
sTHIS TARLE CONTAINS THE TIME ALLOWED FOR AN OPERATION 


TIMER: .WORD <1 DRIVE 0 
«WORD -1 sDRIVE 1 
-WORD -1 DRIVE 2 
-WORD -1 sDRIVE 3 
-WORD -1 DRIVE 4 
-WORD -1 sDRIVE 5 
-WORD -1 sDRIVE 6 
«WORD -1 DRIVE 7 


;DATA TRANSFER UNDERWAY INDICATOR (DTUW=1 Pl 
;DTUW<O IF NO DATA TRANSFER UNDERWA 
;DTUW=+N (WHERE N=0 TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N 


DTUW: .WORD -1 
s ATTENTION tute? TABLE (ATABIT=8 BYTES) 


TABLE CONTAINS THE CORRESPONDING BIT TO EACH DRIVES 
‘ATTENTION BIT 


rs es ee ee ee ee ee ee ee ee - 


SEQ 0116 


DAAAGIAA ADA ES ED 
SOBNSARUN OOO NOAR LF 


177 


ee ee oe a eed od oe od 
SSSLRARATALS 3a 


191 


-—O NAME WI 


030322 


030524 
030326 


030332 


-——-—s ma ee 





000003 


176700 
000254 


000005 


000000 
000002 


fe DR CMPT TST 


000240 


-_ re ee eee —_—s —-=- ees 
° —_--- ———.- A Eee ee a 
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ATABIT: .BYTE 1 ;DRIVE O 
-BYTE 2 sDRIVE 1 
-BYTE 4 sDRIVE 2 
-BYTE 10 sDRIVE 3 
-BYTE 20 sDRIVE 4 
BYTE 40 sDRIVE 5 
BYTE 100 :DRIVE 6 
BYTE 200 sDRIVE 7 


;NUMBER OF ‘MASSBUS CONTROL PARITY ERRORS'' (MCPE) ALLOWED BEFORE 
;CALLING IT FATAL (MCPEMX=1 WORD) 


MCPEMX: .WORD 3 


; STORAGE FOR RMADR (THE FIRST ADDRESS (776700) OF THE RH/RM), 
:RMVEC (THE VECTOR ADDRESS (254)), AND RMVEC+2 (THE BR LEVEL (5)). 


RMADR: .WORD 176/700 

RMVEC: .WORD 254,5*32. 

sMAXIMUM SEARCH FOR 1/0 WINDOW IS 5 SECTORS (MXWNDW=1 WORD) 
MXWNDW: .WORD 5 


;DEFINITIONS OF THE RH/RM ADDRESS INDEXES 


RMCS1T = 0 :CONTROL AND STATUS REGISTER #1 (DRIVE REG. 0) 
RMWC = 2 :WORD COUNT REGISTER (NOT A DRIVE REG) 
RMBA = 4 sUNIBUS ADDRESS REGISTER (NOT A DRIVE REG 
RMDA = 6 :DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG. 5) 
RMCS2 == 10 : CONTROL AND STATUS REGISTER #2 ‘NOT A DRIVE REG) 
RMDS = 12 ;DRIVE STATUS REGISTER (DRIVE REG 1) 
RMER1 = 14 :ERROR REGISTER #1 (DRIVE REG. 2) 
RMAS = 16 ; ATTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 4) 
RMLA = 20 ;LOOK AHEAD REGISTER (DRIVE REG. 7) 

~ RMDB = 22 :DATA BUFFER REGISTER (NOT A DRIVE REG.) 
RMMR1 == 246 ;MAINTAINABILITY REGISTER (DRIVE REG. 3) 
RMD T = 26 sDRIVE TYPE REGISTER (DRIVE REG. 6) 
RMSN = 30 ;SERIAL NUMBER REGISTER (DRIVE REG. 10) 

~ RMOF = 32 .: SOFFSET REGISTER (DRIVE REG. 11) 
RMDC = 34 :DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12) 
RMHR = 36 :DUMMY ADDRESS REGISTER (DRIVE REG. 13) 
RMMR2 = 40 sMAINTENANCE REGISTER #2 
RMER2 = 42 sERROR REGISTER #2 (DRIVE REG. 15) 
RMEC1 = 44 sECC POSITION REGISTER (DRIVE REG. 16) 
RMEC2 = 46 sECC PATTERN REGISTER (DRIVE A-G. 17) 

SBTTL RH/RM DRIVER INITIALIZATION CODE 


:THIS ROUTINE WILL DETERMINE WHICH RM DRIVES ARE 
:AVAILABLE FOR TESTING AND SET THE DRVSTA INDICATOR 
-T0 THE PROPER STATE FOR EACH DRIVE. 

“NOTE: THIS ROUTINE CALLS DRVINT 

CALL 


JSR PC,RMINIT 


SEQ O11/ 


—_———— es ee = 
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é 
$38 : RE TURN 
$15 SNWOTE: THE *P* OR “*L* CLOCK MUST GE STARTED » 
1 9x ¢ 104412 RMINIT: SAYREG sSAVE RO - R5 
13 0% 013746 177776 MOV PS_-(SP) >SAVE THE PRESENT PROCESSOR STATUS 
14 OX “6 ah fA 000240 177776 “Ov a<§232_>_PS >CHANGE THE PRIORITY 10 5 
$12 0x 006737 036012 JSR PC. CLROQUE sCLEAR ALL REQUEST QUEUES 
1g 030354 012701 030166 "Ov @RMERRS 21 sFIRST ADDRESS TO BE CLEARED 
17 03 012702 030266 MOV @SZEKFG.R2 ZLAST ADDRESS TO BE CLEARED 
18 0X 1 1$: CLR (R1)« : CLEAR 
19 03 0201 4 cmp R1.AR2 ;ARE WE DONE? 
20 03 19377 BLO 1$ :BR IF NO 
4 030372 012702 030330 MOV #DTUWR2 LAST ADDRESS 
; 030376 012721 177777 23: MOV #-1,(Ri)« > INITIALIZE 
2 Oe 92 (0 102 ome R1,.R2 > DONE? 
24 030606 101774 BLOS 23 :LGOP IF NO 
5 0304C 9930 7 030206 CLR DRVSTA 7SET ALL DRIVES TO OFFLINE 
6 035041 7 0302 CLR DRVSTA+2 
7 05¢ 16 005037 030212 CLR DRVSTA*4 
8 8 0422 ooRe 7 030214 CLR DRVSTA*6 
: 013703 MOV RMVEC.R3 :SETUP THE RH/RM VECTOR 
03¢ Orcs 032762 MOV #1SR,(R3)+ | 
31 : 013713 030330 MOV RMVEC +z, (R3) 
6 9442 013706 030326 MOV RMADR RS :FIRST ADDRESS OF RH/RM 
030446 012764 5 000010 MOV #CLRLRMCS2(R4) ;MASSBUS INIT 
Oe 54 39900) | CLR RI :START WITH DRIVE 0 
5 03 037 030546 3$: JSR RO, DRVINT : INIT THE DRIVE 
= OR 000401 38 4$ :"DVA* NOT SET OR PARITY ERROR 
$ ’ 000402 3h 5$ sNORMAL RETURN 
03¢ 105061 030206 4$: CLRB DRYSTA(R1) :SET DRIVE STATUS TO OFFLINE 
39 030 005201 S$: INC R1 3GO TO NEXT DRIVE 
40 9474 042701 177770 BIC #°C7,R1 :MASK OUT UNUSED BITS 
41 +44 001366 BNE 3$ 7BR IF MORE DRIVES TO GO 
*g 8 3050 at tah 000007 MOV #7 .R1 : START WITH DRIVE 7 
4 Bays 005037 177776 CLR PS | ;CLEAR THE PROCESSOR STATUS 
44 g 9512 105761 030226 68: TSTa DPINT(R1) sWAITING FOR DRIVE TO SWITCH PORTS ? 
45 $0516 Oo aes BEC 8$ :BR NOT WAITING 
“6 Wf 004737 035446 JSR PC.SET.IE :SET INTERRUPT 
4 0524 105761 030226 7$: TSTB DPINT(R1) :DRIVE SWITCHED PORTS ? 
48 0305 001375 BNE 7$ :BR IF NOT 
49 g 05 005 301 g$: DEC RI 7GO TO THE NEXT DRIVE 
50 0305 AO : BPL 4$ 7 CHECK NEXT DRIVE 
51 0 naz 012637 177776 MOV (SP) +, PS :RESTORE THE PROCESSOR STATUS 
2¢ 030542 104413 RESREG sRESTORE RO - RS. 
Fi 030544 000207 RTS PC :BYE-BYE 
55 :DRIVE INITILIZATION ROUTINE 
$35 : THIS ROUTINE DETERMINES IF A DRIVE EXIST AND IF IT IS 
57 7AN RMOS5S/3/2. IF IT IS, A “READ-IN PRESET’’ IS ISSUED AND FMT16 
258 :1S SET TO A °"l’*. THEN MOL, DPR , VV ARE CHECKED TO 
259 y INSURE THEY ARE ALL ON A ‘‘l"'. AND DEPENDING ON THEIR STATE, 
soy 5 ai IS SET TO THE PROPER CONDITION. 
2 7 CALL 
$oe ; MOV #DRVNUM_R1 sDRIVE NUMBER TO R1 
or : MOV RG -UNIBUS ADDRESS OF RH/RM (RMCS1) 


RMADR , 
JSR RO, DRVINT >CALLED BY A JSR 
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 RH/RM DRIVER INITIALIZATION CODE SEQ 0119 
265 : RE TURN? ERROR OCCURRED (PARITY) 
$06 ; RE TURN SNORMAL RETURN 
$8 ; 
269 930546 010546 DRVINT: MOV RS,-(SP) 7SAVE RS 
270 030550 105061 930206 CLRB DRYSTA(R1) > START thie STATUS AS OFFLINE 
271 030554 105061 030216 CLRB DRYTYP(R1) =CLEAR Ti: DRIVE by INDICATOR 
272 030560 105061 030254 CLRB ULDFLG(R1) = CLEAR THE UNLOAD FLAG 
273 030564 010164 000010 | MOV R71, RMCS2(R4) =SELECT A DRIVE 
274 030570 112764 000111 000000 MOVB #1517,RMCS1(R4) :DO A DRIVE CLEAR COMMAND (& SEIZE DRIVE) 
275 030576 032764 010000 000010 BIT wB1Ti2, RMCS2(R4)- :NONEXISTENT DRIVE? 
276 030604 001403 BEO 1$ NO 
277 030606 737 035446 JSR PC.SET.JE =GO SET ‘‘IE’’ WITHOUT A ‘'TRE'’ 
$59 030612 000520 BR 4$ ;LEAVE THIS ROUTINE 
280 030614 105061 030206 1$: CLRB DRVSTAER1) ;SET DRIVE STATUS TO OFFLINE 
281 030620 032764 004000 000000 BIT #BIT11 .RMCS1(R4)- SEE IF DRIVE AVAILABLE 
282 030626 001512 BEO 4$ ;BR IF DRIVE NOT AVAILABLE 
283 030630 004037 034756 JSR RO.RD.RM READ THE DRIVE TYPE REG. 
284 030634 000026 RMD T 
285 030636 031056 5$ ERROR RETURN ADDRESS 
286 030640 012605 MOV (SP) R5 PUT DRIVE TYPE IN RS 
287 030642 112761 000004 030216 MOVB Sg paUTYPCRID SET RMO3 INDICATOR 
288 030650 022705 020024 CMP #20024 :SINGLE PORT RMO3 ? 
289 030654 001431 BEQ 2$ :BR IF YES 
56 022705 024024 CMP #26026 ,R5 DUAL PORT RMO3 ? 
291 030662 001426 - BEO :BR IF YES 
292 030664 112761 000005 030216 MOVB #5,DRVTYP(R1) =SET rmOe I INDICATOR 
293 030672 022705 070025 CMP #20025 RS “SINGLE PORT RMO2 ? 
294 030676 001420 BEQ 2s ;BR IF An 
295 030700 022705 024025 CMP #24025 ,R5 DUAL PORT RMO2 ? 
296 030704 001415 BEQ 2$ BR IF SO 
297 030706 112761 (00007 030216 MOVB #7.DRVTYP(R1)  =SET RMOS INDICATOR 
298 030714 022705 020027 CMP #20027,R5 = SINGLE PORT RMOS ? 
299 030720 001407 BEO 2$ :BR IF YES 
300 030722 022705 024027 CMP #24027 ,R5 ;DUAL PORT RMOS ? 
301 030726 001404 BEG 2$ BR IF YES 
302 030730 112761 177777 030216 MOVB #-1 .DRVTYP(R1) ;:SET INDICATOR TO ‘OTHER’ 
spt 030736 000446 ate; 4$ EX XIT 
305 030740 012746 000121 2$: MOV #121,-(SP) :D0 A ‘READ-IN PRESET’’ 
306 030744 004037 035136 JSR RO, WRT .RM 
307 030750 000000 RMCS1 
308 030752 031056 S$ 
309 030754 C12746 010000 MOV #B1T12,-(SP) =SET FMT16=1 
310 030760 035136 JSR RO,WRT.RM 
311 030764 RMOF 
312 030766 031056 5$ 
313 030770 004037 034756 JSR RO,RD.RM READ RMDS 
314 030774 12 RMDS 
315 030776 031056 5$ 
36 031000 012605 MOV (SP)+_R5 : AND sae IT IN RS 
317 031002 100015 BPL 3$ IF ATA=0 
318 031004 116164 030312 000016 MOVB ATABIT(R1), RMAS (RG) CLEAR ATTENTION BIT 
319 031012 004037 034756 JSR RO,RD.RM FIND OUT WHY ATA=1 
320 031016 000014 RMER1 | 
321 031020 031056 $ 


| 
| 
| 
| 


322 031022 


378 031244 


006126 
109004 
112761 
000407 
005105 
042705 
00100 

112761 
005720 
012605 
000200 


013746 


CZRMTBO RMO5S/3/2 DR CMPT TST 
RH/RM DRIVER INITIALIZATION CODE 


177777 


167077 
000001 


177776 
030350 
000001 
000016 


030324 
030206 


030254 
030226 
030546 
030206 
030236 


000010 
036110 


000103 


177777 
030176 


031354 
120000 
032432 
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030206 


030206 


177776 
0350252 


000002 
030254 


000016 


3$: 


4$: 


3$: 


(SP) 31S IT UNSAFE? 
3$ ;BR IF NOT 
#=-) ,DRVSTA(R1) ;SET UNSAFE INDICATOR 
4$ sEXIT 
;CHECK MOL, DPR, DRY, AND vv 


R5 MO 
#*C<BI]T12'B1T08! BIT07‘!BIT06>,R5 
4$ DRY, OR yy IS CLEAR 


:BR_IF MOL, DPR, 
#1 ,DRVSTA(R1) ime DRIVE STATUS TO ONLI 
(RQ)* ;STEP OVER THE ERROR RETURN 
(SP)+,R5 RESTORE RS 
RO EX] 


Zee 


sREQUEST PRE=PROCESSOR=HANDLES SUBSYSTEM REQUEST 


CALL 


2s: 


4$: 


JSR 
PNTADR 
RE TURN] 


RE TURN2 


RO,RMOS ;CALL THE RMOS DRIVER 
sADDRESS OF POINTER OF DRIVES PARAMETER BLOCK 
;RETURN HERE IF QUEUE IS FULL 
SRETURN HERE IF REQUEST IS IN QUEUE OR THERE 
71S AN ERROR CONDITION 

PS ,-(SP) ; SAVE Bip CALLING STATUS 

RMVEC*2,PS “DON'T ALLOW ANY RM INTERRUPTS 

#1 ,ACTDRV :SET ‘ACTIVE DRIVER’’ FLAG 
;SAVE RO - RS 

(RO) ,R2 . =PICKUP THE DRIVE PARAMETER BLOCK POINTER 

16(R2) ;CLEAR THE STATUS/ERROR INDICATOR 

(R2) ,R1 :PICKUP THE DRIVE NUMBER 

RMADR RS :UNIBUS ADDRESS OF RMCST 

DRVSTA(R1) *CHECK DRIVES STATUS 

1 7BR IF ONLINE 

ULDFLG(R14 ‘i a IN QUEUE? 

_DPINT(R1) Ping age TO INIT THE DRIVE 

5$ “BR IF YES 

RO, DRVINT :GO INIT. THE DRIVE 

4 * ERROR RE TURN 

DRVSTA(R1) 31S ree STATUS ONLINE? 

6 “BR F NOT 

rr ora PORT REQUEST FOR THE DRIVE ? 

R1,RMCS2(R4) :SELECT THE DRIVE 


RO. DRVQUE *PUT THIS REQUEST IN QUEUE 

9$ = QUEUE IS FULL : 

#103,2(R2) :I1S THIS REQ. FOR AN UNLOAD? 

2$ ;BR IF NO 

4-1, ULDFLG(R1) ;SET THE ‘UNLOAD IN CJEUE'' FLAG 


DRVACT(R1) 71S THIS DRIVE ACTIVE? 

8$ :BR IF YES 

PC,OPT CALL THE OPTIMIZER 

hl 'B1T15, aa SET THE “UNLOAD IN QUEUE"* ERROR FLAG 
“pond ‘60 HANDLE THE PARITY ERROR 


SEQ 0120 


CZ7RMTBO RMOS/3/2 DR CMPT TST 


— RH/RM DRIVER INITIALIZATION CODE 


379 Oarses 
380 031 


SESSRERRSR 


004037 
0004 


122762 
002403 
004737 
0004 34 
005737 


002006 
005737 
100003 


036110 
000100 
035446 
030206 


140000 
030216 


100002 
110000 


930252 
177776 


177776 


000150 
032016 
030310 
030266 
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000076 


000016 
000016 


030250 


000016 


000002 





S$: 


6$: 


*$: 
8$: 


33: 
1068: 


RO, DRVOQUE 
9$ 
ima 
PC .SET.IE 
SPsTacat) 


“BR 
#B1715'81114,16(R2) 


DRVTYP(R1) 


og “BR 
wR1T1S5'BITO1, 16iRe) ‘ 
wAlT15:81712, 162) 
RESTORE 
: SETUP FOR NORMAL RETURN 


(RQ)« 
10$ 


(RQ)¢ 
ACTDRY 
(SP) ©, PS 
RO 


:PuT REQUEST IN QUEUE 
sQUEVE IS FULL 
:1E BIT SET ? 
: SET THE INTERRUPT 
TURN 
SEE IF eae OFFLINE OR UNSAFE 


;SET OFFLINE ERROR a 
;SEE IF OFFLINE OR NONEXISTENT 


OF FL INE 
ni EPORT DRIVE NONEXISTENT 
sDRIVE IS UNSAFE 
RO - R5 


7F INISH 4 THEN EXIT 
SRESTORE R 


-R 
; CORRECT THE “RETURN ADDRESS 
;CLEAR “ACTIVE DRIVER’ FLAG 
;RETURN ‘PS’’ TO USER LEVEL 


sRETURN TO CALLER 


sOPTIMIZER=CALLED FOR A PARTICULAR DRIVE 


= CALL 


OPT: 


3$: 


#DRVNUM,R1 
PC OPT 


PS -(SP) 


ATABIT(R1), scout 


DPROS(R1) 
PC ,GETREG 
R2 


7$ 

R1_ RMCS2(R4) 
#117, RMCS1(RS) 
witty, RACST (RG) 


DRYSTA(R1) 
2s 


PC ,POPGUE 
wRiT15‘:B1114,16(R2) 


DRYSTA(RT) 


8$ :BR TO EX 
#81715'B1T12,16(R2) 
8$ :BR TO EX 


Sores Re? 
PC,CI4 

8$ 

DT UW 

4$ 

SEEKFG 

43 


:DRIVE NUMBER TO R1 
:SETUP A COMMAND 


s SAVE RO - R5 
SAVE PROC. STATUS 
:CLEAR LA SEACH FLAG 
yg THE PORT REQ FLAG **** 
DPB" POINTER OF REQUEST 


its. THERE A ~ atl IN QUEUE? 


:NO-~BR TO E 
>LOAD THE DRIVE ADDRESS «x««n28 
:CLEAR THE +. VE 


? 


zDVA SE 
PORT REQUEST .IF NOT 


;70 

egnve ONL INE ? 
NO*-REMOVE REQUEST FROM QUEUE 

swe OFFLINE STATUS/ERROR INDICATOR 

:1S DRIVE are 


IT IF NOT 
Ay UNSAFE STATUS/ERROR INDICATOR 


‘33 THE REQUEST FOR 1/0? 
‘CALL ss Fea INITIATOR 


:BR TO 
;DATA TRANSFER UNDERWAY? 
;YES=--GO START A SEARCH 


;DO IMPLIED SEEKS? 
NO, DO A SEARCH 


LOLA LS SOOT ES ee Et te ae 
~ - SO SS Ee ee -“—— — - ——- = 


444 031516 


471 

472 031602 
473 031606 
474 031612 
475 031614 


490 031676 
491 031674 
492 031676 
493 031700 
494 031704 


495 

496 031710 
497 031714 
498 031720 
499 031724 
500 031730 


004737 
000423 
004737 
0004 


CZRMTBO RMOS/3/2 DR CMPT TST 
RH/RM DRIVER INITIALIZATION CODE 


031602 
031710 
177777 


035230 
032432 
000100 


035446 
177776 


036206 
030246 


030324 
000070 
000006 


000002 
035136 
035136 


000002 
035136 
030310 
032574 


030324 
000010 


000012 
035136 
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030236 


030270 





4$: 
S$: 


cy 


CALL 


OMMAND 


JSR PC,C]1 

shal 

ah § 

MOVS #=-1 ,DPROS(R1) 

MOV R1,R3 

ASL 

MOV 

BW 

JSR PC,CI7 

8!’ #31706, (R46) 

BNE Kg 

JSR PC SET.IE 

MOV (SP) ¢ PS 

RESREG 

ATS PT 
INITIATOR 

MOV #DRVNUM,R1 

MOV #DPB LR? 

JSR PC CI? 

J5R PC PCPOQUE 

MOV are 

MOV RS 

MOY RMADR , RS 

MOV R?T RMCS2(R4) 

ADD RS 

ADD #2,R4 

MOY (RB) *, (RG) 

MOV (R3)+, (RS)* 

MOY (R3)¢, ti 
JSR RO. wRT RM 

RMDA 

Cj? 

MOY (R3)*,=(SP) 
JSR RO, WRT RM 

RMD ¢ 

Cj? 

MOV 2(R2) (SP) 
JSR RO, WRT .RM 

RMCS1 

C37 

MOV RT DTUW 
JMP c15 

MOY RMADR , RS 

MOV RI RMCS2C(RS) 

MOV 12(R2) = (SP) 
JSR RO,WRT.RM 
RMD ( 


R3 st 
#15000. , TIMER (R3) i; STAR 
7$ T 


; START A DATA TRANSFER 


fig hs wey 
:GO TO THE EXIT 
;SET PORT REQUEST INDICATOR 


:SET UP TO ADDRESS WORDS 


VERT TO a INDE X 
T 15. SECOND TIMER 


‘ PROCESS THE PARITY ERROR 
; SEE Hd 4 ALREADY SET 


7BR IF SE 

3s SET df ed wi THOUT A **TRE’’ 
SRESTORE PROC. STATUS 
s;RESTORE RO = R5 


sDRIVE NUMBER 

s ADDRESS OF DPB 

: ?s Cit, C13, OR C14 
=DATA TRANSFER 


1 
3=SEARCH REQUESTED BY DATA XFER 
4=NOT DATA TRANSFER 


sREMOVE REQUEST FROM ‘DRIVES WAIT’ QUEUE 
:PUT REQ. IN ce WAIT QUEUE 


; SELECT DRIVE 

sDESIRED WORD COUNT 

:RMWC ADDRESS 

;LOAD WORD COUNT 

;LOAD BUFFER ADDRESS 

;LOAD SECTOR AND TRACK 

:CALL THE LOAD(WRITE) ROUTINE 
: INDEX OF REGISTER TO LOAD 
ZERROR RETURN ADDRESS 

:LOAD CYLINDER ADDRESS 


LOAD "‘COMMAND+GO"", °'A17&A16"", AND "PSEL** 


;SET “DATA TRANSFER UNDERWAY"’ 


;RMCS1 Re + wr 
>SELECT DRIVE 
:DESIRED CYLINDER ADDRESS 


SEQ O12¢ 


G 
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en ee aT ee — 
" EEE eee 


CZ7RMTBO RMOS/3/2 DR CMPT TST MATRO yOS.00 4-APR-8) -9 
RH/RM DRIVER INITIALIZATION CODE SEQ 0123 

501 031732 O53 38 ¢]? 

502 031734 116203 C00010 MOVB 1O(R2) ,R3 ;PICKUP SECTOR ADDRESS 

503 031740 163703 030332 Sus MXWNDwW R35 ;BACKUP BY MAX. SEARCH FOR J/0 WINDOW 
504 031764 og fay AG 1 

505 931746 062703 000040 ADD #32. ,R3 

0317 010346 '$: MOV R3,<-(SP) i; COMBINE THE ADJUSTED SECTOR WITH 

507 031754 116266 000017 00000! MOvVB 11(R2),1(SP) i THE DESIRED TRACK 

508 031762 004037 035136 JSR RO,WRT.RM ;LOAD DESIRED TRACK & SECTOR 
509 0317 RMDA 

510 031770 632432 C37 

511 031772 012746 000131 MOV #131,<(SP) :START A SEARCH 

512 031776 004037 035136 JSR RO, WRT .RM 

513 0 e RMCS1 

514 032004 032432 C}7 

515 032006 156137 030312 030250 B!S8 ATABIT(R1) ,SRCHwT ;SET ‘SEARCH WAIT’’ KEY 
21g 032014 567 C15 
518 032016 013704 030324 CI4: MOV RMADR ,RG :RMCS1 ADDRESS 

519 032022 010164 000010 MOV R11, RMCS2(R4) s SELECT DRIVE 

520 032026 116203 0C0002 MOVA 2(R2) R53 sPICKUP THE REQUESTED COMMAND 
5271 0352032 122703 000131 <MPR #131 k3 3:18 IT A SEARCH COMMAND? 

S22 032036 100 BNE 1§ ;BR IF NO 

523 032040 016246 000010 MOV TO(R2) ,=(SP) ;LOAD DESIRED TRACK & SECTOR 
524 032044 037 035136 JSR RO, WRT .RM 

525 052050 RMDA 
526 032052 032432 Cj? 
527 03205 03 KR 2$ 3;GO LOAD CYLINDER 

528 032056 122703 000105 1$: CMPR #105,R3 318 IT A SEEK COMMAND 

29 032 1007 BNE 3$ :BR IF NO 

30 0 016246 900012 e$: MOY T2(R2) = (SP) ;LOAD DESIRED CYLINDER 

531 032070 037 035136 JSR RO WRT. RM 

532 032074 RMD ( 
533 032076 032432 C]?7 
534 0321 546 stat C16 
535 032102 122703 000115 3$: CMPB #715,R3 31S IT AN °‘OFFSET’’ COMMAND? 

536 032106 001013 BNE é$ 7BR IF NO 

537 032110 037 034756 JSR RO,RD.RM MERGE THE OFFSET VALUE INTO RMOF 
538 032114 32 RMOF ;BUT DON'T CHANGE THE UPPER 

539 032116 032432 Cj? 
540 032120 116216 000001 MOVB T(R2) , (SP) ;BYTE WHEN LOADING THE 

541 032124 037 035136 JSR RO. WRT. RM sREGISTER (RMOF) 

542 032130 32 RMOF 
543 032132 032432 (j7 

544 032134 530 BR C16 :GO START THE COMMAND 

545 0321 122703 000107 4$: C #107,R3 21S IT A "RECALIBRATE’’ COMMAND? 
546 032142 001525 BEQ C16 ;BR IF YES 

547 0321 122703 000117 CMPR #117,R3 :I1S IT A RETURN TO CENTER? 

548 032150 001522 BEQ CJ6 :BR IF YES. 4 

549 032152 122703 000103 C #I03,R3 31S IT AN “UNLOAD'’ COMMAND? 

550 032156 001016 BNE 5$ ;BR IF NO 

551 032160 112761 000001 0301764 MOVB #1,DRVACT(R1) ;SET THE DRIVE ACTIVE INDICATOR 
552 0352166 105061 030206 CLRB DRVSTA(R1) ;PUT DRIVE STATUS TO OF FL INE 
553 032172 112763 000001 030254 MOV8 #1, ULDFLG(R1) SET "UNL OAD IN PROGRESS'" FLAG 
554 032200 010346 MOV R3,=-(SP) sSTART THE ‘‘UNLOAD*’ COMMAND 

555 032202 004037 035136 JSR RO, WRI .RM 

556 032206 000000 RMCS! 

557 032210 032432 Cj7 


“ZRMTBO RMO5/3/2 DR CMPT TST 


RH/RM DRIVER INITIALIZATION CODE 


228 Osgete 
559 032 


366 
032372 
032374 


600 032414 
032416 


607 

608 032432 
612 032440 
616 032442 
617 032444 
618 032446 


622 
623 032454 


0004 

122703 
23 

016203 


116237 
116205 
004037 


000 
012762 
012746 


CQ0143 
034756 


000001 
035136 


000141 
000006 
000010 


000011 
034756 


032302 
0C000¢ 
000145 


035136 


036206 
000200 
030264 


035330 


023420 
000001 


035136 


010000 


1064000 
000111 





MACRO 


000001 


032302 


032502 


000076 


030270 
030176 


000010 


000016 


. Os ° 00 


S$: 


7*$ 
7 o 
o 


gS: 


12%: 


73$: 
CI5: 


C16: 
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PC 
143,83 


6$ 
RO,RD.RM 


1(R2),1°(SP) 
RO, WRT RM 


12$ 

7141 ,R3 
10$ 

6(R2) RS 
TOCR2) , 9% 


T1(R2) ,R5 
RO,RD.RM 


(SP) *,(R3)¢ 
9$.R5 

12$ 

“2.9% 

8$ 

#14522 

12$ 
R3,<(5P) 
RO, WRT RM 


PC ,POPQUE 


#BiTC7,16(R2) 


SAVEFG 
13$ 

PC SvRH70 
PC 


R1 

aa adalat 
#1 ,DRVACT(R1) 
PC 


R35,-(SP) 
RO, WRT .RM 


C15 


. lle taictinall 
R2 


4, 


#1171,-(SP) 


#B1T15: BiTl1, 16(R2) 


SEQ 0124 


sRETURN TO USER 
31S i: A "SET FORMAT'’ COMMAND? 


;BR NO 
SREAD THE OFFSET REGISTER 


sCOMBINE “'FMT16"","ECI'', AND “HCI"' 
ZLOAD ‘FMT16"', “ECI'', AND/OR ‘HCI"’. 


318 IT A ‘GET -REGISTER’’ COMMAND? 
;BR IF NO 
;POINTS TO 1ST ADDRESS OF WHERE 
;TO PUT THE REGISTER(S) 

; INIT. THE INDEX FOR THE FIRST REG. 
; INDEX OF LAST REG. TO MOVE 

“READ RH/RM REGISTER 

: INDEX OF REG. TO READ 


:GET THE CONTENTS OF RH/RM mes. 
;LAST REG. BEEN READ? 

:GET OUT IF YES 

; INCREASE THE INDEX BY 2 
;LOOP=-MORE TO READ 

a: IT A “SELECT DRIVE’’ COMMAND? 

7BR IF YES 

;LOAD THE COMMAND 


tT he "es FROM ie 
;SAVE THE RH/RM REGISTERS? 
:BR IF NO 
sYES--GO SAVE THE REGISTERS 
:RETURN TO USER 
sSTART 10. SECOND TIMER 


sSET THE DRIVE ACTIVE 
sRETURN TO THE USER 


;LOAD THE COMMAND 


;DRIVE NON-EXISTENT ? 
ANYTHING IN QUEUE ? 


iT 
SET ‘PARITY’* ERROR INDICATOR 
:DO0 A "DRIVE CLEAR" 


LO OL A a +. ss a oe -_ 


te ee 


624 032460 
625 032464 


635 032514 


687 032760 
688 
689 


CZRMTBO RMOS/3/2 DR CMPT TST 
Rh/RM DRIVER INITIALIZATION CODE 


035136 


030246 


030246 
177777 


030176 
030236 


030246 
030310 


036164 


030316 
177777 
030246 
030254 
010000 
000002 
177770 
177777 


030246 
036012 
005000 


035446 
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030370 


000010 
000016 


000016 
930270 


030310 


000010 


030310 


000010 


"$: 


6$: 


7$: 


8$: 


RO WRT. RM 


PC ,EMPTYGQ 
DPRQS(R1) 
ULDFLG(R1) 
DRVACT(R1) 
—— 


TRNSWT 
a=) ,DTUW 
PC 


RI 

R3 
on 
DPROS(R1) 


6$ 
TRNSWT ,R2 
hs 


3 
PC ,GETREQ 
Re 


5$ BR IF 
WBITI2,RMCS2(R4) 

4$ ;BR IF 
#BITIS!BITON, 16(R2) 

5$ CONTI 
nt timacast .16(R2) 


SEQ O}, 


sEMPTY THE QUEUE 

;CLEAR THE PORT REQUEST FLAG 
iCLEAR THE UNLOAD IN QUEUE FLAG 
iDRIVE IS IDLE 

31F THIS DRIVE HAD AN I/O REQUEST 

3 IN PROGRESS CLEAR ALL OF THE FLAGS 


; SAVE RO = RS 

sDRIVE ACTIVE? 

;BR IF IN ACTIVE 

;PORT REQUEST 

;BR IF NOT 

;GET THE ‘*TRANSFER WAIT’ QUEUE 

DID THIS DRIVE HAVE AN I/O IN PROGRESS? 


;GET THE DPB POINTER 
[QUEUE ENTRY FOR DRIVE ? 


NOT 
oo SET ? 
;SET "DRIVE NON-EXISTENT’ INDICATOR 
;SET *NON-CLEARABLE PARITY’’ ERROR INDICATOR 


#-1, TIMER : STOP THE TIMER 
DRVACT(R1) :SET “DRIVE ACTIVE'’ bi IDLE 
DPROS(R1) ZCLEAR PORT REQUEST FLAG 
ri aed 21S pF aig SETUP. FOR A TRANSFER 
#~1 DTU “RESET THE INDICATOR 
et ;CLEAR THE TRANSFER QUEUE 
ULDFLG > CLEAR UNL OAD FLAG 
wei, RMCS2(RG) *NED® SET ? 

at ;MOVE TO THE NEXT DRIVE 
#*C7,R1 
1$ ;BR IF MORE DRIVES 
#~' DTU ;NO DATA TRANSFERS UNDERWAY 
TRNSWT :CLEAR THE "TRANSFER WAIT’ QUELE 
PC ,CLRQUE :CLEAR ALL OF THE REQUEST QUEUES 
@CLR,RMCS2(R4) ;DO A MASSBUS INIT. 
8$ ; CONT INUE 
PC.EMPTYO ;CLEAR THE DRIVE'S QUEUE 
DRVSTA(R1) :SET DRIVE TO OFFLI 
DRVTYP(R1) ;CLEAR THE DRIVE TYPE INDICATOR 
PC,SET.IE sSET ““IE’* WITHOUT °'T 
ie hae RO - R5 


Z INTERRUPT SERVICE ROUTINE 





eS ee 


700 033022 


704 Oe 


66 
739 033172 


765 033174 
766 033200 
767 033202 


768 033206 
769 033210 
3212 





NIAWWG 
patty RT abe 


SO2S3s 


— CZRMTBO RMO5/3/2 DR CMPT TST 
_ RK/RM DRIVER INITIALIZATION CODE 


C0000: 


030324 
030310 


033024 
033174 


030252 


030176 
177777 


177777 
030246 


030246 
000200 
000010 


630264 
035330 
036164 
031354 
000113 


100100 
036070 
035330 
049111 
000713 


000016 
034756 


036254 
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030252 


030310 
030270 


000016 


000076 


ISR: 


1$: 
23: 


3; TRANSFER DONE 


TO: 


1$: 


23: 
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#1 ,ACTDRY 


RMADR ,RS 
DTUW,R1 
1$ 


PC,'D 
PC.SC 


ACT DRV 


ROUT INE 


DRVACT(R1) 
dee 


ig 
#-1,TIMER(R1) 
we" 

TRNSWT,R2 
TRNSWT 
#81707,16(R2) 
R1,RMCS2(R4) 
RO,RD.RM 
(SP) 

3$ 

SAVEFG 

1$ 

PC, SVRH70 

PC ,GETREQ 

R2 

2$ 

PC OPT 

Pp 

#173, (RS) 

PC 


#31715! pai 106. 16(Re) 


PC EMP 
pc EVRMYO 
#40111, (RS) 
#113, (RG) 
PC 


sSPECIAL CONDITION ROUTINE 


St ¢ 


RMAS (RS) R35 
2$ 
RO,RD.RM 


(SP)¢ 
1$ 
ov £5. SAV 





;SET “‘ACTIVE DRIVER’’ FLAG 
SAVE RO = R5 


; ADDRESS OF RMCS1 
+ ‘DATA TRANSFER UNDERWAY'’ INDICATOR 
R IF NO DATA TRANSFER UNDERWAY 
‘CALL TRANSFER DONE 
;CALL SPECIAL CONDITIONS 
;RESTORE RO = R5 
;CLEAR “ACTIVE DRIVER’’ FLAG 
E TURN 


;SET DRIVE ACTIVE INDICATOR TO iDiLE 
;NO DATA TRANSFERS UNDERWAY 


: CANCEL TIMEOUT 


;GET “DPR’* ADDRESS FROM THE 

; TRANSFER WAIT QUEUE--CLEAR QUEUE 
: SET DONE 

sSELECT THE DRIVE 

; TRANSFER ERROR(TRE=1) ? 


;1S TRE=1 ? 
:BR IF YES 
‘oni THE RH/RM REGISTERS? 


: YES--SAVE THE —“— 
:GET DPB POINT=R 
sENTRY FOR DRIVE ? 

F NOT 


BR I 

+ CALL OPTIMIZER 
RETURN 

; RELEASE THE DRIVE 
; RE TURN 


-SET DATA ERROR FLAG 
sEMPTY THE "DRIVE'S WAIT'’ QUEUE 
‘SAVE THE RH/RM 7 

: ISSUE A ‘DRIVE CLEAR 

s ISSUE A RELEASE TO THE DRIVE 
RE TURN 


;READ ‘'RMAS"' 
:BR IF ANY "ATA BITS SET 
sREAD CONTROL AND STATUS REGISTER 


518 “‘Te'=1? 

>YES, NO DRIVES TO CHECK 

;SAVE THE ADDRESS IN ‘SESCAPE' 
sREPORT AN ILLEGAL INTERRUPT 


em ne ee ee 


SEQ 0126 


| CZRMTBO RMOS/3/2 DR CMPT TST 


| RH/RM DRIVER INITIALIZATION CODE 


| 773 033224 
| 774 033230 
775 033<32 

778 033242 


779 
780 033244 
781 033246 
782 


783 033250 


8 366 
814 033370 
815 

816 033374 
817 00 


831 033444 
832 033446 
033446 
033452 


035446 


000001 


030226 
030236 
034206 
030206 
030254 
036164 
034136 
030206 
040000 
030170 
030176 
034136 
030226 
030206 
020000 


000111 
035136 


036254 


036254 
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030166 


030172 


3$: 
4$: 


5$: 


6$: 


7$: 


ge fears 
mn —~ —ae 





PC,SET.IE 
PC 

-(SP) 
R3,(SP) 
#1,R3 


R1 


R3, (SP) 
5¢§ 


DPINT(R1) 
1$ 

$¢13 
DPROS(R1) 
2$ 

$¢13 
DRVSTA(R1) 
ULDFLG(R1) 
a$ 
PC,GETREQ 
PC, SVRH70 
PC.SCl2 
DRVSTA(R1) 
ii eae 
RMERRS+2,R5 
DRVACT(R1) 
$C 
PC,SC12 
DPINT(R1) 
SC4 
DRVSTA(R1) 


6 
#B1T13,RMERRS+4 4 
7$ , 


#111,-(SP) 
RO,WRT RM 


(SP) ,R5 

’ aiid 
$¢4 
“iene 


$e INTERRUPT ENABLE 
RETUR 


sATA=1? 
YES 


N 
:PROCESS, AL ALL DRIVES THAT HAVE 


sMOVE TO THE NEXT DRIVE 


;BR_ IF MORE TO CHECK? 
;CLEAN OFF THE STACK 


;RETURN TO USER 


ie ore THE DRIVE ? 


i PROCESS THE DRIVE 
[PORT REQUEST OUTSTANDING ? 
;BR IF NOT 


; START THE OUTSTANDING COMMAND 
: CHECK THE DRIVE STATUS 
BR IF INE 


;BR IF 
:GET DPB POIN 


ONL 
eee ane PROGRESS? 


NTER 
:SAVE THE RH/RM a ERD 


SAVE RMDS, 


RMER2, AND 
;ALSO DO A DRIVE INIT (DRVINT) 
:DID DRIVE COME ONLINE? 


SS ERROR 
DRIVE ACTIVE WITH COMMAND OR ERROR RECOVERY ? 
RMER2, AND RMMR2 


3BR IF EITHER 


7SAVE RMDS, RMER1. 
sALSO DO A DRVI 


ed 


NT 
; TRYING TO INIT THE DRIVE ? 


:BR_IF YES, 


K ON MORE DRIVES 


CHECK 
: CHECK ON DRIVE'S STATUS 


E THE ERROR CALL 


; BEF OR 

; SAVE i ADDRESS IN ‘SESCAPE* 
;REPORT Sg AB 4 ATTENTION 
:60 CHECK FOR MORE ATA‘S 


SAVE THE ADDRESS IN ‘SESCAPE* 
;REPORT THE ADDRESS PLUG CHANGE 


LL Se —— = 


SEQ 0127 


L 10 
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RH/RM DRIVER INITIALIZATION CODE SEQ 0128 


-_—_—— 


835 033454 000675 BR $C :CHECK FOR MORE DRIVES 
B35 033456 SC6: ASL R1 i SETUP TO ADDRESS WORDS 
836 03 012761 177777 030270 MOV #=1, TIMER(R1) ;STOP T HE TIMER 
837 03 ASR R1 i RESTORE THE DRIVE ADDRESS 
838 033470 004737 036164 JSR PC,GETREQ :GET THE DPB POINTER FROM THE QUEUE 
839 033474 010164 000010 MOV R1_RMCS2(R4G) ; SELECT DRIVE 
840 033500 000137 034026 JMP sci PROCESS THE SEARCH 
841 033 004037 034756 JSR RO,RD.RM “READ THE RM'S STATUS REG. 
B42 033510 000012 RMD S 
843 033512 033776 Ya) 
844 033514 011605 MOV (SP) RS :AND PUT IT IN R5 
845 033516 126 ROL (§P)+¢ :WAS THERE AN ERROR? 
846 033520 100407 BM! 1$ “BR IF ERROR 
847 033522 105761 030176 TSTB ~—s- DRVACT(R1) “CHECK DRIVE'’S STATE 
848 033526 003137 BGT Sc “BR IF DRIVE ACTIVE WITH ORDER 
849 033530 052762 100210 000016 BIS #31115: B1107!81703,16(R2) : INFORM USER OF ERROR RECOVER COMPLETION 
50 033536 000470 BR 
851 033540 004037 034756 1$: JSR RO, - RM :READ ERROR REGISTER #1 
852 033 000014 RMER1 
853 033546 033776 sca 
854 033550 012605 MOV (SP) + RS :AND SAVE IT IN RS 
855 033552 004737 035330 JSR PC. SVRH70 “SAVE RH/RM REGISTERS 
856 933556 012746 000111 MOV #1i1,-(SP) *ISSUE A DRIVE CLEAR 
857 033562 037 035136 JSR RO, WRT RM 
858 033566 000000 RMCS1 
859 033570 033776 $c8 
861 033572 006105 SC6A: ROL R5 ‘UNSAFE’ CONDITION =1? 
862 033574 BM! 1$ ‘aA IF YES 
863 033576 005702 TST R2 sANYTHING IN QUEUE ? 
864 03 1447 BEO (7 “BR IF 
865 03 052762 100240 000016 BIS #B1115'B1T07!B1T05, 16(R2) : INFORM USER OF ERROR 
866 033610 000443 BR Sc? 
867 033612 004037 034756 1$: JSR RO.RD.RM :READ DRIVE STATUS REG. #1 
868 033616 000012 RMD S 
869 03 033776 $c8 
870 033622 011605 MOV (SP) RS. : SAVE RMDS IN RS 
871 033624 126 ROL (SP)+ : ERR’ = 
872 033626 100011 BPL “BR IF E CLEARED 
033630 112761 177777 030206 MOVB 3s #=1 -DRVSTA(R1) :DRIVE IS UNSAFE 
874 033636 737 035330 JSR PC. SVRH70 > SAVE RHZRM REGISTERS 
875 033642 052762 110000 000016 BIS #BIT15'B1T12.16(R2) 7 INFORM USER OF UNSAFE ERROR 
876 033650 23 BR SC7 
877 033652 032705 010000 2$: BIT WRIT12.R5 -"MOL’’ = 1 ? 
878 033656 001015 BNE 3$ “BR IF YES 
879 033660 112761 177777 030176 MOVB #=1,DRVACT(R1) :ACTIVE ERROR RECOVER 
880 033666 112761 000001 030206 MOVB $#1,DRVSTA(R1) ONLINE 
881 033674 301 ASL RI 
033676 012761 035230 030270 MOV #15000... TIMER(R1) :START 15. SECOND TIMER 
883 033704 20 ASR R1 
033706 000137 033250 IMP $C4 
885 033712 052762 100220 000016 38: BIS WBI1T15'BIT07'BIT04,16(R2) : INFORM USER OF ERROR 
887 033720 105061 030176 SC7: CLRB = DRVACT(R1) :DRIVE IS IDLE 
891 033724 004737 036206 SR PC, POPQUE “REMOVE THE QUEUE 
892 033730 105761 030254 TSTB —sULDF.LG(R1) ‘UNLOAD IN PROGRESS OR QUEUE? 


EE ee ee ee 


| CZRMTBO RMOS/3/2 DR CMPT TST 
RH/RM DRIVER INITIALIZATION CODE 


M 10 
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893 033734 
894 035736 


916 034016 


955 0342352 


000000 
033776 
000137 


105761 


105761 


C30254 
030312 
030206 
000111 
035136 
033250 
030176 


036164 
032432 


032454 
033250 
030254 


030254 


030312 
177777 


031354 
033250 


000040 
030546 


177777 


000010 
030312 
030226 


RG! 1$ :BR IF NOT 
CLRB ULDELG(R1) ‘CLEAR UNLOAD FLAG 
000016 1%: MOVB ATABIT (R R1) ,RMAS(R4) ‘CLEAR “ATIENTION BIT 

TSTB ~—s- DRVSTA(R1) :1$ THE RIV AFE ? 
BM] 2$ BR IF IT 
MOV #111,-(SP) : DRIVE CLEAR COMMAND 
JSR RO, WRT.RM :WRITE THE COMMAND INTO RPCS1 
RMCS1 sREGISTER INDEX 
sc8 | :PARITY EXIT ADDRESS 

2%: JMP $¢4 :CHECK FOR MORE DRIVES 

$¢8 TSTB ~—s-_ DRVACT(R1) i1s DRIVE IDLE? 
BEQ 1$ 


JSR PC,GETREQ 
JSR PC,CI7 
BR 2$ 


‘GET DPB POINTER 
;PROCESS THE PARITY ERROR 
; CONT INUE 


1$: 
JSR PC,C1768 ;PROCESS THE UNCORRECTABLE PARITY ERROR 
2$ JMP $¢4 ; CHECK MORE DRIVES 
SC11: TSTB ULDFLG(R1) :’ UNLOAD IN PROGRESS’? 
BLE 1$ ;BR IF NO 
CLRB ULDFLG(R1) ;CLEAR UNLOAD FLAG 
1$ CLRB DRVACT(R1) ;SET DRIVE IDLE 
030250 BITB ATABIT(R1),SRCHWT ;DOING A SEARCH OPERATION FOR 
s /0 COMMAND? 
BNE :BR IF Y 
JSR PC ,POPQUE sREMOVE REQUEST FROM QUEUE 
000016 BIS #B1T07,16(R2) sSET ° a 
TST SAVEFG 7SAVE THE REGISTERS? 
BPL 2$ :BR IF NO 
JSR PC. SVRH70 YES--SAVE ALL OF THE RH/RM REG’S 
000016 2$: vB ATABIT(R1) SRMAS (R4) ;CLEAR ATTENTION BIT 
030250 BICB ATABIT(R1),SRCHWT =CL LEAR IMPLIED SEEK SET 
3 ASL R1 sWORD INDEX 
030270 MOV #-1, TIMER(R1) + STOP ae 
ASR R1 | ;RESTORE R 
JSR PC ,OPT > START A REQUEST 
JMP $C4 sCHECK FOR MORE DRIVES 
$C12: MOV R1,.RMCS2(R4) sSELECT DRIVE 
030166 MOV RMDS (R4) ,RMERRS > SAV VE THE FOUR REGISTERS THAT 
030170 MOV RMER1(R4) ,RMERRS+2 sWILL TELL US SOMETHING 
030172 MOV RMER2(R4) ,RMERRS+ 
030174 MOV RMMR2 (RG) .RMERRS+6 
JSR RO, DRVINT s INIT. THE STATE OF THE DRIVE 
BR 1$ : TAKE ERROR EXIT 
RTS PC é 
1$: TST (SP) + sPOP PC OFF OF THE STACK 
BR sc8 “PROCESS THE PARITY ERROR 
$C13: ASL R1 4 tg TO ADDRESS WORDS 
030270 rt! ll silat 7ST OP THE TIMER 
MOV R1,RMCS2(R4) “SELECT THE DRIVE 
000016 MOVB ATABIT(R1), RMAS (R4) sCLEAR THE ATTENTION BIT 
1$ TSTB DPINT(R1) s INITIALIZING THE DRIVE ? 





SEQ 


r 


| 
Vicy 


CZRMTBO RMOS/3/2 DR CMPT TST 


RH/RM DRIVER INITIALIZATION CODE 


—— A a ee 


eet ee 


030226 
030546 


030206 
036164 
140000 
035330 
036206 
004000 
035230 


031354 
033250 


030252 
000001 


030270 
000002 
034434 


000010 


030255 
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000016 


000000 


030270 


030253 


030270 


2$: 


4$: 
3$: 


4$: 


2$ :BR IF NOT 
DPINT(R1) :CLEAR THE INIT INDICATOR 
RO, DRVINT *GO INIT THE DRIVE 
“DUMMY PARITY ERROR RETURN 
DRVSTA(R1) :DRIVE ONLINE ? 
2$ :BR IF YES == START ORDER 
R2 “QUEUE ENTRY FOR THE DRIVE 
3$ :BR IF NOT 
PC.G T DP& ADDRESS 
weiss: "BIT16, 16(R3) - INFORM USER THAT DRIVE OFFLINE 
PC, SVRH70 :SAVE THE REGISTERS 
pC . POPQUE :REMOVE THE QUEUE 
#81111, RMCS1(R4) :DVA SET ? 
a7 :SET THEN CALL OPT 
#15000. , TIMER(R1) :START 15. SECOND TIMER 
3$ 
PC,OPT :START THE PENDING REQUEST 
$¢4 “PROCESS OTHER DRIVES 


7RM TIMER ROUTINE 
CALL 
MT IME ,-(SP) 


sELASPED TIME IN MILLISECONDS ON THE STACK 


PC, RMTMR :;CALL RMOS TIME ROUTINE 
ACTDRV sCHECK “‘ACTDRV & ACTSTR*’ 
4$ 3 IF NON ZERO EXIT 
#1,ACTSTR SET “"ACTSTR’' 
* SAVE RO - R5 
f :START WITH DRIVE O 
TIMER(R3) :1S THE TIMER RUNNING? 
2$ “BR IF NO 
Sarr)» (MER) ; COUNT THE INTERVAL 
2$ “BR IF NO SOFTWARE TIMEOUT 
PC,STO ;CALL SOFTWARE TIMEOUT ROUTINE 
R1 “MOVE TO NEXT DRIVE 
(R3)+ 
#8.,R1 :OUT OF DRIVES? 
1$ “BR IF NO 
sRESTORE RO - RS 
ACTSTR 7ZERO ACTIVE SOFTWARE TIMEOUT ROUTINE FLAG 


oe (SP) 


SOFTWARE TIMEOUT ROUTINE 


NOTE : 


“CALL: 


“ADJUST THE STACK 
RET 


URN 


THIS ROUTINE MUST BE ENTERED AT PRIORITY 6 


OR GREATER 

STO 

MOV #DRVNUM,R1 ;DRIVE NUMBER 
JSR Pe. SFO > CALL 

RE TURN 


SEQ 01350 


a 
ee ER o- 


CZRMTBO RMOS/3/2 DR CMP 
RH/RM DRIVER INITIALIZA 
1016 0 010146 
ii tes i 
1019 0 2 01 
1s Sus Sie 
1s eas ae 
i fies tere 
iS ee ie 
1031 74 1033 
is bee i 
Gs Ge ar 
1 034514 1 
tg Gale Bale 
1S Ee Bie 
1 5 wee 
1044 8 540 105061 
1045 544 1 1 
e 550 B03 7 
SES 
1050 24 116405 
1051 570 136105 
1 36 574 1007 
obs 
q 5 isk 
1057 03461 4 
1 
1 ; 034614 105761 
eS i 
1 0 00144 
SS ie 
1065 
Smee gar 
1069 0 ong 105061 
1 65 193061 
1 buses 
1 
7 
1 
? 
1 0 


OVDOOCOCCSoOo 


BISAL AN 


rs 


3 388 


012763 


T TST 


000016 


46 
177777 030310 


000016 
030312 
030226 
03 ° 236 


030226 
030236 
177777 030270 


032532 
030226 
Oe06u6 
177777 030270 
036164 
140000 000016 


177777 030270 


MACRO v04.00 
CODE 


STO: 


STO1: 


1$: 


STO2: 


STO3: 


1$: 


STOS5: 


STO6: 


STO?7: 
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(SP)+ 


DPRQS(R1) 


PC,GETREQ >GET 
#81T15!'B1T09, 16(R2) 
PC.,.SVRH70 : 


DRVACT(R1) 
ULDFLG(R1) 
TRNSWT 


ral DTUW 


STO9 


RMAS (R4) ,R5 
ATABIT(R1) ,R5 


STO3 
DPINT(R1) 
STO6 
DPRGS(R1) 
STO? 

STO9 
ura ae 
DPRQS (R1) 
STO9 3 
#-1, TIMER(R3) 
STO9 


PC,CI8 
STO9 


DPINT(R1) 
DRVSTA(R1) 
#~1, TIMER(R3) 
ree 


STO9 :BR IF NOT 
#81T15'B1T14,16(R2) 7 INFORM THE USER DRIVE NOT AVAILABLE 
STO08 >F INISH 


#-1, TIMER(R3) 


SAVE RG 
sGET ADDRE 
sSELECT THE DRIVE 

ZREAD “DRIVE STATUS REG" 


71S “DRY*>1? 


;BR IF YES 

;TRYING TO INTIALIZE THe DRIVE ? 

7BR IF YES 

;OUTSTANDING PORT REQUEST |OR THE DRIVE ? 
-BR IF YES 


ER WAIT QUEUE 
UNDERWAY ON THIS DRIVE? 


:IF NOT DON'T BOTHER DRIVES 
ADDRES 

SET THE ERROR FLAGS 

> SAVE RH/RM REGISTERS 

sDRIVE IS IDLE 

:CLEAR THE UNLOAD FLAG 

;CLEAR DPB ADDRESS 


sCL S 
:CLEAR THE TRANSFER DRIVE # 
:DON"T BOTHER OTHER DRIVES 


sREAD ATTENTION REG 
4 F aataciciaaas FOR THIS DRIVE UP ? 


: TRYING TO INTIALIZE THE DRIVE ? 


=PICKUP TRANSF 
; TRANSFER 
:BR IF YES 


SS OF “RMCS1"" 


IF YES = DRIVE NOT ONLINE 


:OUTSTANDING PORT REQUEST FOR THE DRIVE ? 
-BR IF YES = NO RESPONSE TO REQUEST 


7BR 
sOTHER WISE EXIT 


PORT REQUEST PENDING ? 
>STOP THE TIMER 
“EXIT 


:GO HANDLE THE PARITY ERROR 


:CLEAR THE aie INDICATOR 


s INITIALIZING THE DRIVE ? 
;BR IF INIT PENDING 


:SET UNIT OFFLI 
;STOP THE TIMER 


:GET THE DPB ADDRESS 
QUE 


sREQUEST IN 


UE ? 


:STOP THE TIMER 





SEQ O11 


CZRMTBO RMOS/3/2 DR CMPT TST 


| RH/RM DRIVER INITIALIZATION CODE 


) 


My 034712 
1080 034716 
| 1081 034 2 
| 034704 
| 198 0347 
| 1084 034 
1085 034740 
1086 034744 
1087 034746 
1088 034750 
| 1089 034752 
| 1090 034754 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 034756 
1102 034764 
1103 034766 
1104 034774 
1105 035000 
1106 035002 
1107 035004 
1108 035006 
1109 035014 
1110 035020 
1111 035024 
1118 0350 
1113 035032 
1114 035036 
1115 035042 
1116 035044 
1117 035046 
1118 035050 
035050 
1119 peepee 
11 0 o0e5 
1121 035064 
1122 035070 
1123 035072 
1124 035074 
1125 035076 
1126 035102 
1127 035104 
1128 035112 
1189 035116 
1130 035120 
1131 035122 
1138 035124 
1133 035126 





013737 
0 


030322 


030324 
035002 


035004 
030324 
000010 
010000 


173266 
020000 


036254 
030310 
040000 


040000 


030324 
035120 


MACRO v04.00 


000016 


035124 
035002 


000002 


035120 


ST08: 
STO9: 


RTS 


DPROS(R1) 
aS” -GETREQ 


STO9 
#81115 18112. 16RD 
PC EMPTY 


PC, SVRHTO 
(SP)+, R4 

(SP)+_R3 

(SP)+,R2 

(SP)+,R1 

PC 


C 11 
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:CLEAR PORT REQUEST INDICATOR 
[GET DPB ADDRESS 
eT ENTRY FOR DRIVE ? 


; INFORM USER OF PORT REQUEST ERROR 
;CLEAR THE QUEUE FOR THE DRIVE 

SAVE THE REGISTERS 

SRESTORE R4 

RESTORE R3 


SRESTORE R2 
sRESTORE R1 
RETURN 


s ROUT INE TO READ A RH/RM REGISTER 


1$: 


2$: 


3$: 


RD.RM2: 


RO.RD.RM 


MCPEMX ,RD.RM2 
(SP) ,-(SP) 

( ADR 
a(PC)*. “¢PO)# 


0 
RD.WRD,2(SP) 
RMADR, — (SP) 
#RMCS2. (SP) 
WB1T12.a(SP)+ 


R,-(SP) 
#B1T13, (SP) 


1$ 
(SP)+, (RO)+ 
RD .RM4 


 iernceatad 
DTUW 

2$ 

#B1T14, (SP) 
2$ 

(SP) + 
RD.RM3 
#B1T14, (SP) 
(SP) 
RMADR , 3$ 

3$ 
otitis 
(PC) + 

3 

RD.RM1 


:GO READ A gt YS 
:REG. INDEX FROM BASE 

sERROR ADDRESS--PROCESS ERROR STARTING 
SAT THIS ADDRESS 

:CONTENTS OF REG. IS ON THE STACK 


sMAX. RETRYS ALLOWED 


:SAVE RO FOR RETURN 

;FORM THE DESIRED ADDRESS 

sUSING THE BASE AND THE INDEX 

sREAD THE DESIRED REGISTER OF THE RM DRIVE 
;ADDRESS IS FORMED HERE 

sREG. CONTENTS PUT HERE 

:RE TURN IT TO THE USER 

;PUT T SS ON THE _ 


; BIT 

BR IF DRIVE NON-EXISTENT 
AD RMCS1 

:DID MCPE SET? 

:BR IF YES 

zADJUST FOR RETURN 

sEXIT 


ae THE nee’ ee IN *SESCAPE' 
T “MCPE*' ERROR 
DATA. TRANSFER UNDERWAY? 


NO 
TRE = 1? 


:NO 

;YES--CLEAN OFF THE STACK AND 
;TAKE THE FATAL ERROR EXIT 
;CLEAR ‘MCPE*’ BY SENDING A °"l"’ 
:POSITION BEFORE WRITING 
:FORM ADDRESS OF HIGH BYTE 


:WRITE THE HIGH BYTE OF RMCS1 
ZADDRESS STORAGE 
sEXCEEDED MAX. RETRYS 


;BR IF NO 


TO *‘TRE’’ 


em ee eee i“ “te 


SEQ 


CZRMTBO RMOS/3/2 DR CMPT TST 


RH/RM DRIVER INITIALIZATION CODE 


1134 035130 
035132 
035134 


ee 
° eee 


ee ee ee ee eed eed ed me ee ee ee ee ee ed od ad 3 oe ~~ 3 wd 


- 


ea 
wi 


ce ed et ed ed wd od et ot 0 
Poe oe at ee ie ie ie 
RW ODDNONE WD OOO 
oO 


VIII &  & |S s- 


SUSARAVLSSS VXARANISSELSSLATSSSSLFY 
Oooo ooo =) oO ooo 


Go 
oO 


035326 


011000 


012616 
000200 


013737 


030322 
000002 


035226 
000150 
034756 


177770 
035225 
030324 


030324 
000010 
010000 


034756 
000010 
177776 
034756 


036254 
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035314 
035224 


035224 


035226 


035276 


RD.RM3: MOV 

MOV 
RD.RMG: RTS 
ZROUTINE TO WRITE A REGISTER 


1$: 


WRT .R1: 
WRT .WD: 
WRT .AD: 


1$: 


WRT .R2: 
WRT .R3: 


WRT .R4: 
WRT .RS5: 


TST 
RTS 


(RO) .RO FATAL 
(SP) +, (SP) 
RO 


aS ake ig 
RO,WRT 


ERROR EXIT 


;DATA TO BE LOADED ON THE STACK 

:CALL THE ROUTINE TO LOAD(WRITE) THE REG. 
INDEX OF THE REGiSTER TO BE LOADED 
;ADDRESS TO RETURN TO ON AN ERROR 


:ERROR FREE RETURN 


MCPEMX ,WRT .R2 
2(SP) ,WRT .WD 
(SP) +, (SP) 

a 


#150, WRT .WD 
1$ 


sMAX RETRYS ALLOWED 
sSAVE THE WORD TO WRITE 
sADJUST THE STACK 

sGET INDEX OF REGISTER TO BE WRITTEN 

:BR IF NOT RMCS1 

:I1S THE COMMAND FOR DATA TRANSFERS? 

: YES--DON*T GET THE OLD Al6 & i & PSEL 


RO.RD.RM =NO---COMBINE A168A17, & PSEL 
= THE COMMAND BEFORE SENDING IT TO 
>THE RH/RM 
(SP) 
#°C7, (SP) 
(SP)+,WRT.WD+1 
RMADR,WRT.AD FORM THE ADDRESS OF THE DISK REG. 
(PC)+,a(PC)+ | :LOAD THE DESIRED REG. 
0 :WORD TO WRITE GOES HERE 
0 “ADDRESS IS FORMED HERE 
RMADR ,-(SP) :PUT THE ADDRESS ON THE STACK 
#RMCS2, (SP) =FORM THE ADDRESS OF RMCS 
WBIT12,a(SP)+ | =CHECK THE "NED’ BIT 
WRT .R3 :BR IF DRIVE NON-EXISTENT 
RO.RD.RM “CHECK FOR PARITY ERROR ON WRITE 
. aS1'93 (SP)+ 
WRT. -BR IF ‘PAR=0"' 
ORO), 1$ :P1CKUP THE INDEX 
RO.RD.RM “READ THE REG. 
0 “REG. INDEX 
“RETURN TO THIS ADDRESS ON ERROR 
RO.ES. SAV “SAVE THE ADDRESS IN 'SESCAPE' 
4 “REPORT THE PARITY ON WRITE ERROR 
(SP) + “CLEAR OFF THE STACK 
(PC) + :DECREMENT THE ERROR COUNT 
3 “RETRY COUNTER 
WRT.R1 ;TRY AGAIN IF NOT FINISHED 
(RO) RO : TAKE THE “PARITY ON WRITE'’ ERROR EXIT 
(F05 “ADJUST FOR ERROR FREE EXIT 


sROUTINE TO SAVE THE RH/RM REGISTERS AS PER DPB+14 


> CALL 


ee 


SEQ 0133 


eel 


—_— 
— 


i tw 
SSSLESRANS 
elelelelele)le) 
WIAA AIA AIA 


% 

—_— 
olan l ae] ae] a) 
Tides 
WW Ww 
SQNasEy 


cet pat ge etek yb yt gy th a gt yt ortuar te tem one tue tear 
Nm 

BRBNN 

SSSSssss 

OOoOoOOoo°o0oo 

We Ay ty tw lw 
ae 
ow —) 
NO 


MmMNMNMN 
fWNO 
oO 
Ww 


r4 
1228 035444 
1229 


1230 
1231 
1232 
1235 
1234 


1235 
1236 035446 


1246 506 

1247 035510 

1248 035514 

1249 035516 

1250 

1251 

1252 

1253 035520 

1256 035521 
035522 
035523 
035524 
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RH/RM DRIVER INITIALIZATION CODE 


030324 
000010 
000014 


035410 
035410 


000200 
034756 


035410 
000002 
032432 


030324 
000010 
040000 


000100 
010000 


000001 
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MACRO VO04.00 4-APR-81 18:12:15 PAGE 25-20 


000022 
000010 


000046 
035410 


000010 


SVRH70: 


2$: 
3$: 


4$: 


5$: 
6$: 


sROUTINE TO SET 
> CALL 


SET.IE: 


1$: 
2$: 


MOV 
JSR 


7 ii 


J 
RESREG 
RTS 


sQUEUE COUNT 


QCNT: 


#DPBNUM, R2 :DPB POINTER TO R2 
PC, SVRH70 :SAVE THE DRIVES REG'S 
;SAVE RO = R5 
R2 sQUEUE ENTRY FOR THE DRIVE ? 
- :;BR IF NONE 
RMADR RG 
(R2),RMCS2(R4) =:SELECT DRIVE 
14(R2) ,R3 :GET THE ERROR TABLE POINTER 
:EXIT IF NO ADDRESS 
3$ :COUNTER & POINTER 
38 . ARMDB ; REACHED THE BUFFER REGISTER ? 
#B1T07 .RMCS2(R4) i 10R" SET ? 
(R3)+ « STORE RMDB AS ZEROES 
4 : CONT INUE 
RO,RD.RM “READ THE SELECTED REGISTER 
0 :REGISTER INDEX 
:ERROR RETURN ADDRESS 
(SP) +, (R3)+ : STORE T THE REGISTER CONTENTS 
3$,4RMEC2 THE END ? 
6$ “BR IF YES 
#2,3% ; INCREMENT THE REGISTER INDEX 
1 :CONTINUE READING THE REGISTERS 
PC.CI7 =PROCESS THE UNC TABLE PARITY ERROR 
:RESTORE RO - R 
PC :RETURN 
THE INTERRUPT WITHOUT GETTING A ‘‘TRE’’ 
#DRVNUM,R1 DRIVE NUMBER TO R1 
PC.SET.IE “SET “a 
R4,-(SP) ;SAVE R4 
RMADR RS PICKUP ADDRESS OF RMCS1 
R1,RMCS2(R4) “SELECT DRIVE 
(R4) ,=(SP) ;READ_RMCS1 
wB1T14, (SP) >SET THE ‘TRE’ BIT OF THE WORD READ 
(SP) ;ADJUST FOR DATO 
#B1T06, ( er 
mBITI2, RCS (RG) :1S 'NED''=1? 
1$ :YES=-CLEAR ‘'TRE’' 
(SP) + “CLEAN OFF THE STACK 
(SP) +,1(R4) :CLEAR ''TRE'' 
(SP) +,R4 “RESTORE R4 
PC “RETURN TO CALLER 
0 :DRIVE 0 
0 sDRIVE 1 
0 :DRIVE 2 
0 :DRIVE 3 
0 :DRIVE 4 


SEQ 0134 


‘ 
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RH/RM DRIVER INITIALIZATION CODE 


035525 000 -BYTE 0 ;DRIVE 5 
035526 000 -BYTE QO iDRIVE 6 
1257 035527 000 BYTE 0Q iDRIVE 7 
1$28 : QUEUE INPUT POINTERS 
1260 035530 035612 QINPT: .WORD QDRVO iDRIVE 0 
1263 035532 935632 -WORD QDRV1 ;DRIVE 1 
35534 035652 .WORD QDRV2 ;DRIVE 2 
035536 035672 -WORD QDAV35 :DRIVE 3 
035540 035712 .WORD QDRV4 :DRIVE 4 
035542 035732 -WORD QDRV5 ;DRIVE 5 
035544 035752 -WORD QDRV6 iDRIVE 6 
ae 035546 035772 .WORD QDRV7 iDRIVE 7 
1265 QUEUE OUTPUT POINTERS 
1267 035550 035612 QOUTPT: .WORD QDRVO :DRIVE 0 
1270 035552 035632 -WORD QDRV1 sDRIVE 1 
635554 035652 -WORD QDRV2 :DRIVE 2 
035556 035672 -WORD QDRV3 :DRIVE 3 
035560 035712 -WORD QDRV4 iDRIVE 4 
035562 035732 -WORD QDRV5 ;DRIVE 5 
035564 035752 -WORD QDRV6 :DRIVE 6 
1271 035566 035772 -WORD QDRV7 :DRIVE 7 
1272 025570 035612 QSTART: .WORD QDRVO DRIVE 0 START ADDRESS 
1273 035572 035632 QSTOP: .WORD QDRV1 ;DRIVE 0 STOP ADDRESS & DRIVE 1 START ADDRESS 
1274 035574 035652 WORD QDRV2 2 


Stop DRIVE 1--START DRIVE 


eee ee eee 


1275 035576 035672 -WORD QDRV3 TOP DRIVE 2--START DRIVE 3 
1275 035600 035712 .WORD QDRV4 >STOP DRIVE 3--START DRIVE 4 
1277 035602 035732 -WORD QDRVS5 - STOP DRIVE 4--START DRIVE 5S 
1278 035604 035752 .WORD QDRV6 :STOP DRIVE 5--START DRIVE 6 
1279 035606 035772 .WORD QDRV7 7STOP DRIVE 6--START DRIVE 7 
1600 035610 036012 -WORD QTERM 7STOP DRIVE 7 
1282 ZDRIVE REQUEST QUEUES 
1286 035612 QDRVO: .BLKW 10 

035632 QDRV1: .BLKW 10 

035652 QDRV2: .BLKW 10 

035672 ODRV3: .BLKW -10 

035712 QDRV4: .BLKW 10 

035732 QDRVS5: .BLKW 10 

035752 QDRV6: .BLKW 10 

035772 QDRV7: .BLKW 10 
f= 24 036012 QTERM=. 
i sROUTINE TO CLEAR ALL OF THE REQUEST QUEUES 
1291 : CALL : 
1% ; JSR PC, CLRQUE 
1294 036012 10441 CLRQUE: SAVREG :SAVE RO - R5 
1295 036014 012702 035520 MOV MOCNT, R2 “ZERO THE QUEUE COUNTS 
1296 036020 00502 CLR (R2)+ “DRIVES 08 1 
1297 036022 005022 CLR (R2)+ “DRIVES 2 & 3 





OO OO re ee ee ee 
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RH/RM DRIVER INITIALIZATION CODE SEQ 0136 
1298 036024 005022 CLR (R2)+ s;DRIVES 4 8 5 
1299 036026 005022 CLR (R2)+ ;DRIVES 6 & 7 
1300 036030 012703 000010 MOV #8. ,R3 ;MOVE THE STARTING 
1301 036034 012701 035570 MOV #QSTART,R1 sADDRESS OF THE QUEUE INTO 
1302 036040 012122 1$: MOV (R1)+,(R2)+ ;THE QUEUE INPUT POINTER 
1303 036042 005303 DEC R3 ‘ 
1304 036044 001375 BNE 1% 
1305 036046 012703 000010 MOV #8.,R3 sMOVE THE STARTING ADDRESS 
1306 036052 012701 035570 MOV #OSTART,R1 OF THE QUEUE INTO THE 
1307 036056 012122 2$: MOV (Ri)+,(R2)+ sQUEUE OUTPUT POINTER 
1308 036060 005303 DEC R3 
1309 036062 001375 BNE 2$ 
1310 036064 104413 RESREG ;RESTORE RO - R5 
ta 036066 000207 RTS ‘PC 
Ea sEMPTY THE QUEUE SPECIFIED BY R1 
1315 > CALL 
1316 : MOV DRVNUM,R1 ;DRIVE NUMBER TO R1 
ieee ; JSR PC, EMPTYQ 
1319 036070 105061 035520 EMPTYQ: CLRB QCNT(R1) ;CLEAR NUMBER OF ITEMS IN QUEUE 
13520 036074 006301 ASL Rj 
1321 036076 016161 035530 035550 MOV QINPT(R1) ,QOUTPT(R1) :SET OUTPUT QUEUE POINTER=INPUT PUINTER 
1322 036104 006201 ASR R1 
1352 036106 000207 RTS PC 
1363 zROUTINE TO PUT A REQUEST IN QUEUE 
1327 > CALL 
1328 . MOV ADRVNUM,R1 :DRIVE NUMBER 
1329 ; MOV #DPB,R2 -ADDRESS OF PARAMETER BLOCK 
1330 : JSR RO, DRVQUE 7GO PUT REQUEST IN QUEUE 
1331 E RETURN1 ;RETURN HERE IF QUEUE IS F 
1a : RE TURN2 :RETURN HERE IF REQUEST IS ON QUEUE 
1334 036110 122761 000010 035520 DRVQUE: CMPR #10, QCNT(R1) 31S QUEUE FUL 
1335 036116 001421 BEQ 2$ =BR IF YES—TAKE RETURN1 
1336 036120 105261 035520 INCB QCNT(R1) : INCREMENT QUEUE COUNT 
1337 036124 006301 ASL Ry 
1338 036126 010271 035530 MOV R2,Q@QINPT(R1)  ;:PUT THIS REQUEST IN QUEUE 
1339 036132 062761 000002 035530 ADD #2,QINPT(R1) ;UPDATE THE QUEUE POINTER 
1340 036140 026161 035530 035572 CMP QINPT(R1) ,QSTOP(R1) :TIME TO RESET THE POINTER 
1341 036146 001003 BNE 1$ ;BR IF NO 
1342 036150 016161 035570 035530 MOV QSTART(R1),QINPT(R1) : YES--RESET POINTER 
1343 036156 006201 1$: ASR 1 
1344 036160 005720 TST (RO) + 7 TAKE RETURN 2 
Lt 036162 000200 2$: RTS RO ;RETURN TO USER 
iE ot sROUTINE TO GET THE ‘'DPB’’ ADDRESS OF NEXT REQUEST IN QUEUE 
1349 > CALL 
1350 : V #DRVNUM,R1 :DRIVE NUMBER TO R1 
1351 2 JSR PC,GETREOQ :GO GET THE REQUEST 
1352 : RE TURN :R2="‘DPB'' ADDRESS OF THE REQUEST 
1eez : :R2=0 IF NO REQUEST IN QUEUE 
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RH/RM DRIVER INITIALIZATION CODE SEQ 0137 


1355 036164 005002 GETREQ: CLR Re 

1356 036166 105761 0635520 TSTB QCNT(R1) 31S THERE ANY REQUEST IN QUEUE? 
1357 036172 001404 BEQ 2$ zNO 

1358 036174 006301 1$: ASL R1 

1359 036176 017102 035550 MOV @QOUTPT(R1),R2 ;PICKUP ‘DPB'' POINTER FOR THIS DRIVE 
1360 036202 006201 ASR R1 

1305 036204 000207 2$: RTS PC ;RETURN TO USER 

iE ;ROUTINE TO ‘POP’' THE REQUEST FROM QUEUE 

1365 3; CALL 

1366 5 MOV #DRVNUM,R1 :DRIVE NUMBER TO R1 

1367 . JSR PC ,POPQUE :;CALL TO REMOVE REQUEST 

i ; RETURN ;R2=ADDRESS OF DPB REMOVED 

1370 036206 105361 035520 POPQUE: DECB QCNT(R1) ;DECREMENT QUEUE COUNT 

1371 036212 006301 ASL R1 

1372 036214 017102 03555¢ MOV @QOUTPT(R1),R2 ;GET THE ‘DPB’’ POINTER 

1373 036220 005071 035550 CLR @QOUTPT (R1) ;REMOVE DPB ADDRESS FROM THE QUEUE 
1374 636224 062761 OCO002 035550 ADD #2, QOUTPT(R1) ;UPDATE THE QUEUE POINTER 

1375 036232 026161 035550 035572 CMP QQUTPT(R1),QSTOP(R1) ;TIME TO RESET THE POINTER? 
1376 036240 001003 BNE 1$ ;NO--BR TO EXIT 

1577 036242 016161 035570 035550 MOV QSTART(R1) ,QOUTPT(R1) 7 YES--RESET THE POINTER 
1378 036250 006201 1$: ASR R1 

Eta 036252 000207 RTS PC ;RETURN TO USER 

1382 sROUTINE TO SAVE THE CONTENTS OF ‘S$ESCAPE' WHEN THE DRIVER 

1383 :REPORTS AN ERROR DIRECTLY. 

1584 : 

1385 : CALL 

1386 ; JSR RO.ES.SAV 

1387 : ERROR N 2:2, THE ERROR CALL 

1 ; RE TURN ;THE RETURN IS PAST THE ERROR CALL 
1390 036254 012037 036270 ES.SAV: MOV (RO)+,1$% :GET THE ERROR CALL 

1391 036260 013746 001200 MOV SESCAPE ,-(SP) ;SAVE THE ADDRESS IN ‘S$ESCAPE' 
1392 036264 005037 001200 CLR SESCAPE CLEAR THE ESCAPE RETURN 

1393 036270 000000 1$: -WORD 0 7; THE ERROR CALL IS MOVED HERE 

1394 036272 012637 001200 MOV (SP) +, SESCAPE sRESTORE THE ESCAPE ADDRESS 

1395 036276 000200 RTS RO :RETURN 


TT STE men 


Ee = 


CZRMTBO RMOS/3/2 DR CMPT pa 
BUSADR = GET BUS ADDRESS AND 


T 

2 

3 

4 

5 

6 

? 

g 

9 

10 

11 

12 
13 036300 104412 

14 036302 012700 001276 
15 036306 104401 036450 
16 036312 011046 

17 036314 104402 
18 036316 104401 042752 
19 036322 104411 
20 036324 012601 
21 036326 004537 036466 
22 036332 000763 
23 036334 012700 001300 
24 036340 104401 036457 
25 036344 011046 
26 036346 104402 
27 036350 104401 042752 
28 036354 104411 
29 036356 012601 

036360 004537 036466 
31 036364 000763 
32 036366 012700 001276 
33 036372 012701 030324 
34 036376 013705 000004 
35 036402 012737 036426 
36 036410 005777 142662 
37 036414 010537 000004 
38 036420 012021 
39 036422 012021 
40 036424 
41 036426 012716 036434 
42 036432 
43 036434 
036434 

44 036436 010537 000004 
45 036442 000717 
46 036444 104413 
47 036446 00020 
49 036450 122 115 
50 036457 122 115 
52 
53 

54 

55 
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VECTOR ADDRESS 


.SBTTL BUSADR = GET BUS ADDRESS AND VECTOR ADDRESS 


;THIS ROUTINE IS USED TO INSURE THE BUS ADDRESS 
;OF THE RH/RM IS SETUP FOR THE PROPER ADDRESS. 
:1T WILL ALSO READ THE ADDRESS FROM THE TTY IF 


:REQUIRED. 
sNOTE: THIS ROUTINE DESTROYS RO=R4 
; CALL 
; JSR PC ,BUSADR 
; RETURN 
BUSADR: SAVREG ;SAVE ALL REG 
1$: MOV #SRMADR ,RO sFIRST ADDRESS 
TYPE -MRMCS1 3; RMCS1=" 
MOV (RO) ,=(SP) ; PRESENT RMCS1 ADDRESS 
TYPOC sire if 
TYPE »~BLNKS1 : TYPE 1 BLANK 
RDLIN ;GET THE ENTRY 
MOV (SP)+,R1 :ADDRESS OF ASCII TEXT 
JSR R5,CK.NUM sENTER AND STORE THE NEW ADDRESS 
BR 1$ sERROR EXIT 
2$: MOV #SRMVET ,RO “VECTOR ADDRESS 
TYPE -MRMVEC ;' RMVEC=" 
MOV (RO) ,-(SP) ;PRESENT RH/RM VECTOR ADDRESS ON THE STACK 
TYPOC :TYPE IT ) 
TYPE -BLNKS1 : TYPE 1 BLANK 
RDLIN ;READ THE ENTRY 
MOV (SP)+,R1 >ASCII TEXT ADDRESS 
JSR R5,CK.NUM ZENTER AND STORE NEW ADDRESS 
BR 23° sERROR EXIT 
3$: MOV #SRMADR , RO sFIRST ADDRESS OF NEW PARAMETERS 
MOV #RMADR RI sFIRST ADDRESS OF WHERE TO PUT THEM 
MOV QMERRVEC RS ;SAVE ERROR VECTOR 
000004 MOV #4$ , AHERRVEC sLOAD NEW VECTOR ADDRESS 
TST @SRMADR sLEGAL I/0 ADDRESS ? 
MOV R5 ,@#ERRVEC :YES,IF NOT TRAP TO TIMEOUT 
MOV (RO)+,(R1)+ :LOAD THE BUS ADDRESS 
MOV (RO) +, (R1)+ ;LOAD VECTOR ADDRESS 
BR 6 ; COMMON EXiT 
4$: MOV #5$, (SP) 7SET RETURN ADDRESS 
= RTI sRETRUN FROM TIME OUT TRAP 
EMT 6 
MOV R5 , @MERRVEC sRESTORE THE TIME QUT TRAP 
BR 1$ : TRY AGAIN 
6$: RESREG “RESTORE ALL REG 
RTS PC 
} 
103 MRMCS1: .ASCIZ @RMCS1=a 
126 MRMVEC: .ASCIZ @RMVEC=a 


~SBTTL CK.NUM - CHECK NUMBER (OCTAL) 
;THIS ROUTINE CHECKS AN ASCIZ STRING FOR LEGAL CHARACTERS 
;AND FORMS AN OCTAL NUMBER IN R2 


;CALL: 
; MOV #ADR,R1 sADDRESS OF ASCIZ STRING 


SEQ 0138 
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CK.NUM ~ CHECK NUMBER (OCTAL) SEQ 0139 
57 ; JSR R5,CK.NUM R5 CHANGED 
58 ; RET ; ERROR ExT 
59 ‘ RET ;NORMAL EXIT 
60 036466 010246 CK.NUM: MOV R2,=-(SP) ;SAVE R2 
61 036470 (10346 MOV R3,~-(SP) ; SAVE a 
62 036472 010446 MOV R4,~(SP) ; SAVE R 
63 036474 012703 000006 MOV »R3 MAX OCTAL DIGITS IN THE NUMBER 
64 036500 005002 CLR sFINAL OCTAL VALUE 
65 036502 112104 1$: MOVB (R1)+,R4 GET te gg POINTED BYTE 
66 0365 001424 BEQ ;BRANCH, IF TERMINATOR DETECTED 
67 0365 120427 000060 CMPB R4,A4'0 “SMALLER THAN ASCII-O ? 
68 036512 103425 BLO 5$ ;YES,ERROR EXIT 
69 036514 120427 000067 C R4,A'7 ;LARGER THAN ASCII<-7 7 
70 036520 101022 BHI 5$ ; YES, ERROR EX] 
71 036522 30 ASL Re ; SHIFT LEFT 
72 036524 103420 BCS 5$ ; 
73 036526 302 ASL Re ; ONE 
74 036530 103416 BCS 5$ 
75 036532 302 ASL R2 :OCTAL DIGIT 
76 036534 103414 BCS 5$ sERROR IF CARRY BIT aot 
77 036536 2704 177770 BIC #177770,R4 ;CHOP OFF HIGHER BITS 
78 036542 040 ADD R4,R2 ;APPENDING CURRENT DIGIT TO NUMBER 
79 036544 005503 DEC R3 ;DECREMENT BYTE COUNT 
80 036546 001401 BEQ 2$ :BRANCH, IF LAST BYTE 
81 056550 000754 BR 1$ :LOOPING BACK 
036552 112104 2$: MOVB (R1)+,R4 ; CHECK —_— 
83 036554 1 BNE 5$ ZERPOR EXIT 
84 036556 005702 3$: TST R2 :FINAL VALUE = 0 
85 036560 00140 BEQ 5$ :YES, TAKE ERROR EXIT 
86 036562 010210 MOV R2, (RO) REPLACE THE ORIGINAL VALUE 
7? 036564 00572 4$: TST (R5) + zADJUST FOR NORMAL RETURN ~ 
036 012 5$: MOV (SP)+,R4 sRESTORE R4 
89 036570 012603 MOV (SP)+,R3 RESTORE R3 
90 036572 012602 MOV (SP)+,R2 RESTORE R2 
91 036574 000205 RTS R5 sEXIT 
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_ ERROR MESSAGE SEQ 0140 
1 .SBITL ERROR MESSAGES 
3 036576 122 110 040 EM]:  .ASCIZ /RH INTERRUPT OCCURRED (RMAS=0) / 
4 036635 125 116 105 EM2:  .ASCIZ /UNEXPECTED ATTENTION OCCURRED/ 
5 036673 115 101 123 —EM3: § .ASCIZ /MASSBUS PARITY ERROR (MCPE=1)/ 
6 036731 115 101 123 EM4:  .ASCIZ /MASSBUS PARITY ERROR (PAR=1)/ 
7 036766 101 104 104 EMS:  .ASCIZ /ADDRESS PLUG CHANGE BI 
8 037022 122 110 040 EM6:  .ASCIZ /RH DIDN'T RESPOND TO ADDRESSING 
9 037062 125 116 103 E—M10: .ASCIZ /UNCORRECTABLE MASSBUS PARITY ERROR/ 
10 037125 106 101 124 EM11:  .ASCIZ /FATAL MASSBUS PARITY E 
11 037160 120 105 122 EM12:  .ASCIZ /PERSISTENT DEVICE UNSAFE/ 
12 037211 117 120 105 EM13: .ASCIZ /OPERATION NOT COMPLETED WITHIN TIME LIMIT/ 
13 037263 104 122 111 EM14:  .ASCIZ /DRIVE WENT OFFLI 
14 037306 116 117 040 E€M15:  .ASCIZ /NO RESPONSE TO PORT REQUEST/ 
15 037342 110 105 101 EM20:  .ASCIZ /HEADER CRC ERROR/ 
16 037363 104 101 124 EM21:  .ASCIZ /DATA CHECK ('DCK') ERROR/ 
17 037414 127 122 111 EM22:  .ASCIZ /WRITE CHECK ERROR - DATA CHECK ('DCK') SET/ 
18 037467 127 122 111 EM23:  .ASCIZ /WRITE CHECK ERROR - DATA CHECK ('DCK') NOT SET/ 
19 037546 110 105 101 £M24:  .ASCIZ /HEADER READ ERROR ~ ‘FMT’ BIT DROPPED/ 
20 037614 110 105 101 EM25:  .ASCIZ /HEADER READ ERROR - HEADER COMPARE ('HCE') ERROR/ 
21 037675 106 117 122 EM26:  .ASCIZ /FORMAT ERROR ('FER')/ 
22 037722 110 ~—-:105 101 EM27:  .ASCIZ /HEADER COMPARE (‘HCE’) ERROR/ 
23 037757 115 111 123. EM30: .ASCIZ /MISCELLANEOUS DRIVE ERROR/ 
24 0400 117 120 105 EM31:  .ASCIZ /OPERATION INCOMPLETE ('OPI') ERROR/ 
25 040054 104 122 111 EM32:  .ASCIZ /DRIVE TIMING ("DTE') ERROR/ 
26 040107 120 101 122 EM33:  .ASCIZ /PARITY ("PAR") ERROR AFTER OPERATION STARTED/ 
27 0401 127 122 111 EM34:  .ASCIZ /WRITE CLOCK FAILURE ('WCF*) ERROR/ 
28 040226 111 116 126 EM35: .ASCIZ /INVALID ADDRESS (‘JAE’) ERROR/ 
02 127 122 111 EM36:  .ASCIZ /WRITE LOCK (*WLE*) ERROR/ 
040315 104 101 124 EM37: .ASCIZ /DATA CHECK ("DCK*) SET DURING WRITE CHECK COMMAND/ 
31 040377 122 110 040 EM40:  .ASCIZ /RH CONTROLLER OR UNIBUS TRANSFER ERROR/ 
2 04044 102 125 123 EM41:  .ASCIZ /BUS ADDRESS OR WORD COUNT INCORRECT/ 
33 040512 104 101 124 EM42:  .ASCIZ /DATA COMPARE ERRORS - NO OTHER ERROR(S) DETECTED/ 
040573 103 101 116 EM43:  .ASCIZ /CAN*T MATCH DATA READ WITH A PATTERN/ 
35 040640 105 122 122 EM44:  .ASCIZ /ERROR BIT(S) SET, BUT NO ERROR SIGNALED BY THE RH/ 
040722 105 103 103 £—M45:  .ASCIZ /ECC LOGIC FAILURE - POSITION REGISTER VALUE NOT VALID/ 
37 041010 102 125 123 EM46:  .ASCIZ /BUS ADDRESS AND WORD COUNT NOT CONSISTENT/ 
041062 123 105 105 €MSO:  .ASCIZ /SEEK INCOMPLETE ("SKI") ERROR/ 
39 041120 120 122 117 —M51:  .ASCIZ /PROGRAM DETECTED POSITIONING ERROR/ 
40 041163 104 122 111 EM60:  .ASCIZ /DRIVE UNSAFE ERROR/ 
41 041 040 040 000 ASCIZ / / 
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| 1 041212 122 115 101 DH1:  .ASCIZ /RMAS / 
| 2 041221 104 122 111 DH2: ASCIZ /DRIVE RMDS  RMER1 RMER2 RMMRD RMAS = / 
| 3 041303 104 122 111. DH3: -ASCIZ. /DRIVE REG ADR DATA / 
| 4 041334 104 122 111. DHA: -ASCIZ. /DRIVE REG ADR GOOD BAD / 
| 5 041376 122 115 101 DH6:  .ASCIZ /RMADR / 
| 6 041407 104 122 111. DH?: -ASCIZ /DRIVE RMCS1  RMWC RMDA Os / 
| ? 041460 122 115 103 DH10: _ASCIZ RMDS §RMER1 RMAS RMDB / 
8 041531 122 115 115 DH11:  .ASCIZ /RMMR1 RMDT  RMOF — RMD RMMR2 = / 
9 041602 122 115 105 DH12: .ASCIZ /RMER2 RMEC1 RMEC2 / 
10 EVEN 
12 041634 001326 000000 DTI: .WORD ATIN,O 
13 041640 001224 030166 030170 DT2: -WORD DRIVE,RMERRS,RMERRS+2,RMERRS+4,RMERRS+6, 4TTN,0 
14 041656 001224 035002 035004 DT3: .WORD DRIVE,RD.ADR,RD.WRD, 
15 041666 001224 035226 035224 DTé: “WORD  DRIVE.WRT.AD.WRT.WD.RD.WRD,O 
16 041700 030324 000000 DT6: “ WORD R, 
17 041704 001224 004526 004530 DIT?7: .WORD DRIVE,RM.REG,RM.REG+2,RM.REG+4,RM.REG+6,0 
18 041720 004536 004540 004542 DT10: .WORD RM.REG+10,RM.REG+12,RM.REG+14,RM.REG+16.RM.REG+22.0 
19 041734 004552 004554 004560 DT11:  .WORD RM.REG+24.RM.REG+26.RM.REG+32.RM.REG+34.RM.REG+40_0 
20 041750 004570 004572 004574 DT12 WORD “ RM.REG+42,RM.REG+44 .RM.REG+46,0 
22 041 000 DF I BYTE 0 
23 041761 000 000 000 DF2 BYTE 0,0.0,0,0,0 
24 041767 000 000 000 DF3 BYTE 0.0. 
25 041772 000 000 000 DFS -BYTE 0.0.0.0 
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ie ERROR MESSAGES SEQ 0142 
| 1 041776 123 125 102 MESG1: .ASCIZ /SUBSYS / 
2 042006 104 122 111 MESG2: .ASCIZ /DRIVE(S): / 
3 042021 052 052 040 MESG3: .ASCIZ /** STARTING PASS 1 / 
| 4 042045 200 115 117 MESG4: .ASCIZ <CRLF>/MOUNT PACK ON DRIVE / 
5S 042073 101 116 104 MESG8: .ASCIZ /AND LOAD, / 
6 042106 124 131 120 MESG9: .ASCIZ /TYPE <CR> WHEN DRIVE READY./ 
7 042142 200 104 122 MESG10: .ASCIZ <CRLF>/DRIVE IS NOT READY, TEST IS ABORTED/ 
8 042207 200 120 101 MESG11: .ASCIZ <CRLF>/PACK IS NOT ACCEPTABLE, CHANGE PACK AND [RY AGAIN/ 
9 042272 125 116 114 MESG12: .ASCIZ /UNLOAD DRIVE 
10 042310 101 116 MESG13: .ASCII / AND REMOVE PACK/<CRLF> 
11 042331 124 131 120 ASCIZ /TYPE <CR> WHEN DONE. / 
12 042356 052 052 040 MESG14: .ASCIZ /** STARTING PASS 2 / 
13 042402 052 052 040 MESG15: .ASCIZ /** ALL DRIVES ARE / COMPATIBLE «*/<CRLF> 
14 042443 123 103 117 MESG16: .ASCIZ /SCORES FOR DRIVE / 
15 042465 040 040 MESG17: .ASCIZ / TRACK  ODRIVE OVRWRT OVRWRT READ READ/ 
16 042546 04 040 MESG18: .ASCIZ / NUMBR- READ OFST= OFST+ OFST= OFST+/ 
17 042630 123 105 114 SELFX: .ASCIZ /SELF/ 
18 35 011 TAB: ASCIZ <HT> 
19 042637 052 040 060 MARKX: .ASCIZ /* 0/<HT> 
20 4 042 QUOTM: .ASCIZ /''/ 
21 042646 054 040 000 ¢ : .ASCIZ /, / 
22 042651 127 111 114 MESGS: .ASCIZ /WILL TEST / 
2 2664 117 116 040 SG6: .ASCIZ /ON / 
24 042670 111 123 MESG7: .ASCIZ <CRLF>/IS THERE ANOTHER SUB-SYSTEM (Y OR N) ? / 
25 042741 131 200 000 Y: ASCIZ /Y/<CRLF> 
042744 116 200 000 N: ASCIZ /N/<CRLF> 
27 042747 040 BLNKS4: .ASCII / / 
28 042750 040 BLNKS3: .ASCII / / 
042751 040 BLNKS2: .ASCII / / 
042752 040 000 BLNKS1: .ASCIZ / / 
31 042754 072 000 COLON: .ASCIZ /:/ 
32 042756 040 057 040 SLASH: .ASCIZ a/a 
8 762 077 000 S:  .ASCIZ /2/ 
34 042764 040 102 101 MESGI9: .ASCIZ / BAD SPOT FILE / 
35 043004 124 105 123 SG20: .ASCIZ /TEST COMPLETE/ 
36 043022 200 052 O52 STARS: .ASCIZ <CRLF>/*eexnanxaanaennen/<CRLF> 
37 043044 104 122 111 MESG21: .ASCII /DRIVE NOT ON-LINE OR NOT ASSIGNED/<CRLF> 
41 043106 007 120 122 HALTX: .ASCIZ <07> HAL T/<CRLF> 
42 043125 104 122 111 HALT1: .ASCIZ DRIVE FAILED ON BASIC READ & WRITE TESI/<CRLF> 
43 043176 104 122 111 HALT2: .ASCIZ /DRIVE FAILED ON WRITE TEST (TEST 4)/<CRLF> 
043243 106 101 124 XFATL: .ASCIZ /FATAL ERROR/ 
45 043257 200 040 047 NEDCLK: .ASCIZ <CRLF>/ ‘L' OR 'P" CLOCK REQUIRED ON SYSTEM/<CRLF> 
46 043326 040 077 104 QDRIV: .ASCIZ / ?DRIVE/ 
4 336 040 111 123 LODEV: .ASCIZ / IS LOAD DEVICE/ 
8 043356 040 077 103 NOTST: .ASCIZ. @ ?CANNOT SELECT RMO3/2'S AND RMOS'S TOGETHER (NOT COMPATIBLE) @<CRLF> 
3 EVEN 
22 043456 BUFFER: 
54 000200 . END 200 


| 


CZ7RMTBO 
SYMBOL 
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TABL 
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000000 
000254 
000000 


001342 
005502 
00000 


0203570 


CKSWR = 104407 
CK.CHR 


C 022464 
CK.DEC 022436 
CK.DIG 022536 
CK. 036466 
CK.OCT 022410 
CLKFLG 001316 
CLOCK 021526 
CLRDPB 021720 
CLRQUE 035012 
CMCNT 001354 
CMCYL 001356 
CMSEC 001362 
CMTRK 001364 
COLON 042754 
C 42646 
CPSAVE 024252 
CR = 000015 
CRLF = 000200 
CYLIMT 001374 
CYLNDR 004616 
DCKER 020300 
DDISP = 177570 
DEASG 017070 
DF1 041760 
DF2 041761 
DF3 041767 
DF4 041772 
DH1 041212 
DH10 041460 
DH11 041531 
DH12 041602 
DH2 041221 
DH3 041303 
DH4 041354 
DH6 041376 
DH7 041407 
DISMNT 017016 
DISPLA 001156 
DISPLY= 104414 
DISPRE 000174 
DONE 017744 
DPINT 030226 
DPRQS 030236 
DRIVE = 001224 
DRIVO 004622 
DRIV1 004644 
DRIV1O 005042 
DRIV11 005064 
DRIVI2 905106 
DRIV13 005130 
DRIV14 005152 
DRIV15 005174 
DRIV16 005216 
DRIV17 005240 
DRIV2 004666 
DRIV3 004710 


eee Ss nee 


004732 


040512 


SORRERRARER 
Rte 


-o 
Ry 
Ww 
Sx 
ron 


000004 
036254 
017664 


001766 


SEQ 014% 
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| SYMBOL TABLE 




































SEQ 0144 
OSs % 0427464 PIRGQ = 177772 RDNG RMSN = 30 
LOG NEDCLK 043257 PIRQVE= 000240 RDN? 003376 RMTMR 034344 
(064 NOTST 06 POPQUE 636206 RDNS RMVEC 030326 
LOGS INE 001366 POSER RDNO Rew = 900002 
066 OFFCOD 904504 PRINT 017152 RDPO RM.REG 004526 
LOG OF FSET= 000115 PROCES 017452 RDP 1 003716 RMOS 031062 
( OFFST 014264 PRTBAD 020702 RDP10 004136 RNOP = 000101 
L OFL 01 PRTIM 017714 RDP11 0046156 RSTART 001400 
LOOP) OPER 920610 PRO = 000000 RDP12 004176 RTC =_000117 
LOB OPT 031354 PRI = 009040 RDP13 004216 R60 = 
LOOP OVWNO PR2 = 000100 RDP14 004236 R7 = 
LOOPG OVWNI 76 PR3 = 000140 RDP1S 004 SAVE 
LOOPS OVwN10 16 PR4 = 000200 16 004276 SAVREG= 104412 
LOOPS OVW 1 PRS = 000240 RDP17 004316 SC 0331 
LSTAD OWWNI2 002356 PR6 = 000300 RDP18 336 SCOPE = 
MAKEUP OVWNI 376 PR7 = 000340 RDP2 003736 014614 
MARK X OVWNI4 002416 PS = 177776 RDP3 756 SCll. 0 
MCPEMY OVWNIS 0024 PSEUDO 005322 RDP4 003776 SC12. 0341 
ME SG! OvWNIg 0024 PS = 177776 RDPS 004016 SC} 
me $610 OWWNI7 002476 PUNSAF 017644 RDP6 004036 SC3. 033244 
MESG1 CVWWNIB 002516 PWRVEC= 000024 RDP? 004056 SC4 «033250 
$614 OWN 116 QCNT 035520 RDPB 004076 $65 0332 
$G1 136 QDRIV 043326 RDP9 004116 SC6 56 
S614 OVWNS 002156 QDRVO 035612 RD.ADR 035002 SC6A 033572 
MESG15 OVWNS 002176 QDRV1 035632 RD-RM 034756 SC7 37 
mESG16 OVWN6 216 QDRV2 035652 RD.RM1 035 SCB_ «033776 
$G1 OVWN? 002236 QDRV3 035672 RD-RM2 035124 SEARCH= 00013 
mE SGI8 0 256 QDRV4 035712 RD-RM3 035130 SECLMT 001370 
$61 002276 QDRVS 035732 RD.RMG 035134 SECOND 001350 
S OVWPO 002536 QDRV6 035752 RD.WRD 035004 Ek = 000105 
OvwP1 002556 QDRV? 035772 READIN= 000121 SEEKFG 
1 OVWP10 002776 QINPT 035530 RECAL = 000107 SELDRV= 000145 
SG OVWP11 QOUTPT 035550 RELSE = 000113 SELFX 042630 
me S64 OwwP12 00 QSTART 035570 REPLZ 022210 SELFO 004356 
S65 OvwP13 003056 OP 035572 SREG= 104413 SELF1 004 
ME SG6 OvwP14 00 QTERM = 036012 RESVEC= 000010 SELF10 004402 
ME SG OVWP15 003116 QUES, 042762 030324 SELF11 004404 
ME SGB OVWP16 0031 QUOTM 042644 = 000016 SELF12 004406 
ME S OVWP17? 003156 RDCHR = 104410 = 000004 SELF13 004410 
MINUTE OVWP18 003176 RDDAT = 000171 RMCS1 = 000000 SELF14 004412 
7 Ove? 002576 = 000173 RMCS2 = 000010 SELF1S 004414 
MoD)? 007444 Owes 002616 RDLIN = 104611 = SELF16 004416 
MODI? 007624 OVwP4 002636 003216 RMDB = 000022 SELF17 004420 
moe? 007162 OvwPS 002656 RDM1 003236 C = 000034 SELFIB 004422 
mode? 0074 OVWPS 76 RDNIO 003456 RMDS = 000012 SELF 362 
Modes 007 Ovuey 002716 RDN11 003476 RMDT = 000026 SELF3 004364 
mop30 007456 OVWP8 736 RDNI2 003516 C1 = 000044 SELF4 006566 
MONTR 0071 002756 RDNI3 003536 2 = 000046 SELF5 004370 
MRMCS1 036 PACK 001324 RDNI4 003556 RMERRS 030166 SELF 004572 
MRMVE ( 30 RDNIS 003576 = 000014 SELF? 004374 
MXWNO'W PCLOCK 001314 RDN16 16 = 000042 SELFB 004376 
M.OPID PFECH 024434 RDN17 003636 RMHR = 000036 SELF9 0044 
M.DP4O O22 PFECH] 024444 RDNI8 003656 RMINIT 030334 SETFMT= 00014 
N.DP4T 020124 PFECH2 024526 RDN2 003256 RMLA = 000020 SETVEC 007074 
M.0P42 0201 PFECHS 024560 RDNS 003276 RMMR1 = 000024 SET.IE 035446 
M.0P44 020166 ECHS 024570 RONG 003316 RMMR2 = 000040 SIXTEE 001352 
M.0P5O 02220) PFTSTN 0246574 RDNS 003336 RMOF = 000032 SIZMEM 007030 





' 





Se a 
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2 


C 1 
CZRMTBO RMOS/3/2 DR CMPT TST MACRO V0G6.00 4-APR-81 18:12:15 PAGE 29-3 
MBOL TABL 


| $¥ E SEQ 0145 
| SKIER 020510 TAB.XV= 001114 SAUTOB 001150 SHD = 000000 SRMADR 001276 
SLASH 042756 TBITVE= 000014 SBASE 001266 SHIBTS 001109 SRMAS = 000036 
| SPATH 1 033024 001136 SICNT 001120 SRMBA = 000024 
SPOTX 0106 TIMER 030270 SBDDAT 001142 SILLUP 025552 SRMCS1= 900020 
CHT 0302 TKVEC = 000060 SBELL 901 SINTAG 001151 SRMCS2= 0000 
| STACK = 001100 TPVEC = 000064 = 0011 SRMDA = 000026 
| STARS 043022 T = 0000 $CDW1 001272 F 00121 SRMDB = 000042 
STARSC 001360 TRFER 020500 001274 SLFLG 025375 SRMDC = 000054 
START 005566 LMT 001372 SCHARC 025126 $LKCSB 001 SRMDS = 000032 
START SWT 030246 SCKSWR 025242 SLKCSR 001302 SRMDT = 000046 
START 2 TRIVEC= 000014 SCLR.T 023534 SLKS 001310 SRMEC1= 000064 
START 36 TSTNM = 001340 SCMTAG 001114 SLLVEC 001312 SRMEC2= 000066 
STATIN 322 TST? 011020 SCM3 = SLOOP 023612 SRMER1= 000034 
STKLMT= 177774 TST10 015654 SCM4 = 1 SLPADR 001122 SRMERZ= 000062 
STNDAT 005262 TST11 6342 SCNTLC 023452 PERR 001124 SRMHR = 000056 
STO 034434 TST2 © 011374 SCNTLG 026661 SLPVEC 001306 SRMLA = 000040 
S101 034470 TST3 =: 011650 SCNTLU 026654 SLSTAD 030076 SRMMR1= 000044 
STO 034564 TST4 =: 0012274 SCOMND= SMADR1 001244 SRMMR2= 000060 
STO 034614 TST5) =: 012772 SCPUOP 001240 SMADR2 001250 SRMOF = 000052 
STO ren TST6 =: 013344 SCRLF 001207 SMADR3 001254 SRMSN = 000050 
STO6 §=—-_- 034646 TST? ©015140 $CYL = 1 SMADR4 001260 SRMVEC 001300 
STO7 =: 034704 TYPDS = 104405 SDBLK 026232 SMAIL 001212 SRMWC = 000022 
$108 034734 TYPE = 104401 $DB2D 027 SMAMS1 001242 SRTNAD 023614 
T 034744 TYPOC = 104402 $DB20 027200 SMAMS2 001246 SRTRN 023610 
035330 TYPON = 1044 SDECVL 027164 SMAMS3 001252 SSAVRE 026710 
001154 S = 104403 SDEVCT 001222 SMAMS4 § 001256 025556 
000176 TYPRI4 022340 EVM 001270 SMBADR 001102 022674 
017674 UCPAR 017654 GN 023554 SMFLG 025374 $SB20 022724 
900001 ULDFLG 030254 SDSPLY 022 SMNEW 77 SSCOPE 027320 
1 001330 TBL 026222 SMSGAD 001226 $SEC = 1 
000002 UNSAF 020530 SEMTAB= SMSGLG 001230 SSETUP= 000137 
000004 WCFER 020520 SENDAD 023544 SMSGTY 001212 $SIZE 027746 
000010 WCKD = 000151 SENDCT 023512 02 SSTUP = 177777 
000020 WCKER 020310 SENV. 001232 SMTYP1 001243 SSUPRS 022 
0 WCKHD = 000153 SENVM § 001233 SMTYP2 001247 SSVLAD 027674 
100 WLEER 020450 SE 023456 SMTYP3 001253 SSVPC = 000 . 
200 WRTDAT= 000161 SEOPCT 023504 SMTYP4 00125 $SWR = 177600 
00 WRTHD = 000 SERFLG 001117 SMXCNT 027744 SSWREG 001234 
1000 WRT.AD 035226 001131 SNULL_ 001170 $SWRMK = 
WRT.RM 035136 02366 SNWTST= SSYSNM= 000014 
one WRT.R1 035222 SERRPC 1132 SOCNT 26012 $STATUS= 16 
000 WRT.R2 035314 SERRTB 0053 SOCTVL 027302 TBIT 023616 
01 WRT.R3 035320 SERRTY 024256 E 026014 ERM = 32 
O¢ T.R4 035324 SERTTL 0011 SOVER 027730 STESTN 001216 
WRT.R5 035326 SESCAP 0012 SPASS 001220 TIME 021430 
100000 T.WD 035224 SETABL 001232 SPASTM 001106 STIMES 0011 
XEND2 017146 SETEND 001276 SPHYDR= 15 TKB =: 001162 
10 XFATL 043243 SFATAL 001214 SPOWER 025560 STKINT 022754 
000020 XPASS1 010054 SFFLG 025376 SPSEL = KS 1160 
0 XPASS2 012460 SFILLC 001172 SPWRDN 025400 STKSRV 023004 
100 XXDP 0014 SFILLS 001171 SPWRMG 025534 STMPO 001174 
000200 Y 042741 = 000001 SPWRUP 025452 STN = 000012 
000400 SAPTHD 0011 = 000016 SQUES 001 STNPWR 027114 
001000 SATYC 025156 001134 SRDCHR 026524 STPB 001166 
14 $ATY1 025132 SGDDAT 001140 SRDLIN 023150 STPFLG 001173 
042635 SATYS 025140 $GET42 023516 $RDSZ = 000001 001164 
002054 SATY4 025150 SGTSWR 026312 SRESRE 026746 STRAP 030100 








ee EE ee - 


_——— 


> 


STRAP? 
$T 


STSTNM 
* ABS. 


ERRORS DETECTED: 
VIRTUAL MEMORY USED: 


| CZ7RMTBO 
SYMBOL 


030122 
11 


RMOS/3/2 DR CMPT TST 
TABLE 


STTYIN 
STYPDS 
STYPE 

STYPEC 


60416 WORDS 


DYNAMIC MEMORY AVAILABLE FOR 


—_—— _ - —_— ——._. 


MACRO V04.00 4-APR-81 


oD al = PAGES) 
CZRMTB.BIN,CZRMTB/C=CZRMTB.DOC,CZRMTB, SYSMAC/M 


— 


D 
18:12:15 PAGE 


025614 


* 


$XON = 000021 
SXTSTR 027336 
$$GET4= 000001 
SOFILL 026013 


-$x = 001100 


SEQ 0146 


CZRMTBO RMOS/3/2 CR CMPT TST 


CROSS REFERENCE TABLE (CREF vO1-05 ) 


I 
| SSGETS 10-1 10-14 10-14 
| SOFILL 16-1 16-14 16-1* 
| $460CAT 11-1 22-1 
SAPTHD 5-11 5-114 
SASTAT 14-1 14-1 
SATY1 14-14 
T¥3) Ss 13=1 14-14 
SATY4 11-1 14-14 
SATYC 14-1 14-14 
SAUTOB 6-04 9-36" 18-1 
$BASE 6-04 
£30 4-04 
S$BDDAT 6-04 
$BELL 6-04 9-093 11-1 
$8UF 7-04 9-351* 9-563* 
$CDw1 6-04 9-184* 9-188 
9~-763* 
$CDW2 6-04 9-140* 9-147 
- 9-497 9-502 9-516 
SCHARC 13-1 13-14 13-1* 
SCKSWR 18-14 24-1 24-1 
SCLR.F 10-1 10-14 
SCM3 6-0 6-04 
SCM4 6-9 6-0 6-04 
SCMTAG 6-04 9-31 31 
SCNTLC 9-H54 9-116 9-1414 
SCNTLG 18-1 18-14 
SCNTLU 9Q9=I11 18-1 18-14 
$C 7-0 7-0 7-0 
7-0 7-0 7-04 
Q=;13% Ge<38x 9-<69* 
$C 6-04 
SCRLF 6-04 9-56 9-144 
9-542 9-592 9-682 
9-735 9-793 9-200 
9-C€96 9-D72 9-H53 
12=1 12-1 13-1 
$CYL 7-04 9-354" 9-561* 
9-:61 9-<45« 9-<63* 
$DB2D 9-H12 «20-14 
9-H29 Ss 2 1-14 
K 17-1 17-1 17-14 
SDECVL 20-1 20-14 
SDEVCT 6-04 
6-04 9-302* 9-560 
9-<72 9-=39 9->00 
1 10-1 10-1 
SDSPLY 9-F81# 24-2 
$DTBL 7-1 17-14 
SEMTAB 7-0 7-0 7-0 
7-0 7-0 7-04 
SENDAD 5-8 9-36 10-14 
SENDCT 9-31 10-14 
NV 6-04 9-36 11-1 
SENVM 6-04 9-31 13-1 
$E OP 9-766 10-14 


16-1* 


18-1 


11-1 
9-624 
9-303* 


9-614 
9->63 
10-14 


7-0 
9-45 
11-1 


135-1 
135-1 


9-708 


7-0 


E 12 
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9-917 
9-486 


9-268 
9-764 


9-31 


7-0 
9-587* 


9-327 
9-771 


9-956* 
9-558 


9=-271% 
9-815 


$-31 


7-0 
9-623* 


9-911 
Q-=41* 


9-745 
9-a13 


7-0 


9-985* 
9-718 


9-272 
9-815* 


7-0 
9-910* 


9-397 

9-825 

9-A21 
10-10 


9-942 
9-=95« 


9-911 


7-0 


G-:64 
9-746* 


9-304* 
9-818 


9-943 
9-=96 


9-914 


7-0 


9-<44e 
9-750 


9-315 
9-830 


9-953 


7-0 


9=-= 36" 
9-810 


9-320 
9-835 


9-:17 


7-0 


SEQ 0147 
9-C26 9-C69 
9-812 9-906 
9-487 9-489* 
9-739 9-795 
7-0 7-0 
9-:70* YJ=:79e 
9-509 9-538 
9-868 9-230 
9-C61 9-C63 

12-1 12-1 
9-714 9-:17* 
9-364 9-<41 
7-0 7-0 


CZRMTBO RMOS/3/2 DR CMPT TST 


_ CROSS REFERENCE TABLE (CREF vO1-05 ) 
| OPCT 1* 10= 10-14 


—=s«$SE 9-3 1 
SERFLG 6-0# # 11-1 
| SERMAxX 6-08 9-31 
 $ER 9-31 11-18 
SERRPC 6-0# 11-1 
| SERRTE 8-O# =-12=1 
SERRTY 11-1 12-14 
| SERTIL 6-08 = 11-1 
SESCAP  6-O# 9-31« 
25-=92* 25-=948 
SETABL  6-0# 
SETEND 5-11 6-0# 
| SFATAL 6-08 = 14-18 
SFFLG 14-1 16-18 
| $FILLC 6-08 = 1341 
$SFILLS 6-0# 13-1 
SFMT 7~0 7~0 
$GAP 70 7-0" 
SGDADR  6-0# 
$GDDAT 6-04 
$GET42 10-14 
$GTSWR 9-H70 18-14 
4-54 4-54 
$HIBTS 5-114 
SICNT  6-Of 22-1 
$ILLUP 15-1 15-1 
SINTAG 6-04 18-1 
SITEMB 6-0f 11-1 
F 6-0 9-131 
SLFLG 14-14 14-18 
$LKCSB 7-O# 9-D46* 
$LKCSR 7-O# 9-040 
$LKS 7~O# 9-D51 
SLLVEC 7-08 9-153 
OOP 10-1 10-14 
SLPADR 6-08 — 9=31* 
$LPERR  6-O# 9-31 
PVEC 7-04 9-043 
$LSTAD 9-92 23-14 
SMADR1 6-O# 
SMADR2 6-04 
SMADR3 6-0 
$MADR4 6-0 
SMAIL 55-11 5-11 
$MAMS1 6 -0# 
SMAMS26-0#f 
$MAMS3  6-0# 
SMAMS4  6-0# 
5-114 
$MFLG 14-1 16-14 
SMNEW 18-1 18-18 
SMS 6-04 14-1 
$MSGLG 6-0#  14-1* 
$MSGTY 6-04 14-1 
18-1 18-14 
| SMTYP1 6-04 
SMTYP2 6-08 


r 


11-1 
22-1 


11-1 


6-04 


14-1* 
14-1* 
14-1 


11-1" = 22=1 22-1 
22-1 22-1 22-1* 
11-1 1-18 0 11-18 
11-1« 

11<1 11=1 11-1 
16-1" 14-18 

13-1 

7-0 7-0 7-0 
24-1 
22-1 22-1* 22-18 
18-1 

11-1 11-1 11-1 
11-1 13-1 13-1 
22-1 22-1 22-18 


ee-1 22-1 22-1 


9-31 9-36 11-1 


14-18 


14-18 14-1 


——— ~ 
SLL LL EC EEE a et tt tty el as . 


22-1 


12-1 


22-1* 


7-0 


11-18 


22-1* 
ee~1* 


15-1 
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22-1 22-1 22-1" 


12=1 


25-772 =25"830 = 25-832. 25=318 89 25"377 = 25==81 25 ==91 


7-0 7-0 7-0 7-0" 9-:66* 


11=1* 12-1 


22>) 


SEQ 0145 


9-:69 


mr me me eee 


——_—_—— ee eee we eee 


CZRMTBO RMO5/3/2 DR CMPT TST 
CROSS REFERENCE TABLE (CREF v01-05 ) 
| SMTYP3 -O# 


SSCOPE 
$SEC 


a 


9- 
9-31 
7-08 


9-31* 
15-14 


9-H 
22-14 


9-356* 


9-190* 
9-973 


9-31* 


15-1* 


9-391 


16-1 
22-1 
10-1 


22-14 
13-1 
99-6934 


® 


I~] 


9-193 
9-976 


10-1 
15-1* 


9-D84 


9-393* 


9-8074 


16-1* 
22-14 
10-18 


13-1 


9-192 


9-C52 
9-C07 


9-<01 


9-A62 


9-A42 
9-C€13 


9-197 
9-:08 


10-14 
15-1* 


9-H104 


9-560* 


9-8964 


16-1« 
10-18 


13-1 


9-196 


9-=64 


9-A45 


26-23 
9-:11 


9-648* 


LOL LE ELLOS CL I EE I a tt ly ee A, i 


9-<264 


é2e1 


18-1 


26-14 


9-A48 


9-<09 


9-658" 
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9-=268 


ee=1 


26-32 


9-A51 


9-<11 


9-659 


9=>264 


22-1 


26-36 


9-A54 


9-=62 


9-661* 


9-A57 


9-=65 


9-909" 


9-A60 


9-=90 


9-952" 


9-A65 


9-=93 


9-975 


9-A68 


9-AIS 


9-040 


iii ee OE 


~ 


CZRMTBO RMOS/5/2 DR CMPT TST 


CROSS REFERENCE 
9-:62 
SSE TUP ae 


$SIZE 
$STUP 


SSUPRS 
$SVLAD 
$SVPC 
$SwR 


STKSRV 
STMPO 
STN 


TABLE (CREF vO1-05 ) 
9-<03 


~< 9-<13 9-< 39s 

4-111 4-111 4-111 
9-31 9-31 9-31 
10-1 11-1 11-1 
23-14 

4-111 4-111 4-111 
4-111@ 94-1118 94-1118 
9-F 52a 
22-14 

5-84 

4-54 4-55 4-55 
9-31 9-31 9-31 
10-1 10-1 10-1 
15-1 22-1 22-1 
22-1 22-1 22-1 
9-31 

4-55 4-55 4-55 
22-1 22-1 22-1 
9-223* 9-253 9-487 
4-65 9-a49 9-266 
10-1 10-1 10-14 
12-1 12-1 22-1* 
9-D704 9-E21 

9-31 9-481*  9-554* 
22-1* 22-1* 

9-E22 9-E29 9-H41 
9-H394 

9-E30* Q=H42* 9-H56* 
9-H494 

9-277* 9-278 

4-54 9-481 9-481 
9-807 9-8074 9-896 
20-1 20-14 

13-1 13-1 13-1* 
13-1 13-1 135-1 
13-1 13-1 13-1 
24-14 
24-14 

9-355* 9-565* 9-588* 
9-<59*  9-<60 9-=01* 
24-1 24-1 24-1 
24-1 24-1 24-1 
24-1 24-1 24-1 
24-1 24-14 24-14 
24-2 24-2 24-2 
24-14 24-3 

10-1* 11-1 1-1 
9-H87 GHAHGG 9-122 
24-1 24-1 

9-F83 135-14 14-1 
13-1 13-1 13-14 
13-1 13-14 


9-<62* 

4-111 

9-31 
11-1 


4-111 


G=-=07* 

4-111 

9-31 
11-1 


4-111 


== 34% 
4=1118 
9-31 
15=] 


4-1114 
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9-264» 
4=1114 
9-31 

18-1 


4-1114 


9-5544 
9-<26 


LEO LLL OLE LE GT EL I CET a et Ml tl tt ty 


9==69% YJeer92e 
4-1114 4-1114 
9-31 9-31 
18-1 22-1 
4-1118 4-1118 
4-55 4-55 
9-807 9-896 
11=1 11=1 
22-1 22-1 
4-55 22-1 
9-380 9-082 
9=-<26* YJe=2hs 
18-1 18-1 
18-1 18-1 
9-610 9-610 
9-<264 9-=24 
9-665* 9-938 
24-1 24-1 
24-1 24-1 
24-1 24-1 
24-184 24-14 
| 22-1 


9->26* 
18-1 
18-1 


9-610# 
9-=24 


9-939 


4-1114 
9= 36 


4-111" 


10-1* 
18-1 
18-1 


9-693 
9-=248 


9-941» 


24-18 


22-1* 


SEQ 0150 
4-1118 Q-2) 
9-36 9-46 
44-1118 44-1118 

-0 9-31 
G=>26 =10-1 
11=<1 11=1 
22-1 22-1 
een 22-1 
22-1 22-1 
18-1 18-1 
9-695 9-69 34 
9->26 9->26 
9-:18* 9-:19 
24-1 24-1 
24-1 24-1 
24-1 24-1 
24-14 24-18 


Le es ee 
a rm a a _ 


I 12 
CZRM™TBO RMOS/3/2 DR CMPT TST MACRO VO04.00 4-APR-81 18:12:15 PAGE S=5 


CROSS REFERENCE TABLE (CREF vQ1-05 ) 
$TYPOC 16-14 24-1 24-1 

16-1 16-14 24-1 

16-18 = 24-1 

6-04 “0 

5-114 

6-0" 

6-04 


6-04 
7-04 9-3535* 9-562" 9-626" 9-908 9=976% 9-983" Jest12# 9=:63 9=<11 Ja<37e 8 Gaz%Ze 38 Gaz6Se 
9-=93* 9-€25 9-(38 9-C70 


13-1 13-1 
13-1 13-1 18-1 
22-18 

14-1 14-1 
5-11 5-114 
4-108 6-0 6-0 
6-0 6-0 
6-0 6-0 
4-964 

6-0 6-0 
25-934 = 25-347* = 25-398* 25-691* 25-699% 25-986 
25-998 25-988* 25-:02* 
6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 6-0 
6-0 6-0 
6-0 6-0 
6-0 6-0 
6-0 6-0 
6-0 6-0 
6-0 6-0 
6-0 6-0 
6-0 6-0 
6-0 6-0 
6-0 6-0 
6-0 6-0 
6-0 6-0 
6-0 6-0 
6-0 6-0 
6-0 6-0 
6-0 . 6-0 
6-0 6-0 
6-0 6-0 





SEQ 0151 


9-=68 


J 12 
CZRMTBO RMOS/3/2 DR CMPT TST MACRO VO04.00 4-APR=-81 18:12:15 PAGE S=-6 


CROSS REFERENCE TABLE (CREF VO1-05 ) SEQ 015 
| AMTYPG 6-0 6-0 
| APASS = 6-0 6-0 
APRIOR 6-0 
| APTCSU 13-1 14-14 
| APTENV 11-1 13-1 16-1 16-14 
APTSIZ 9-31 # £414-14 
APTSPO 13-1 14-1 14-14 
| ASNLST 7-04 9-75 9-135 9-210 9-212 9=224% 9244 9-250 9->60 
ASSGN] 7-04 9-225% 9-286* 9-298 99-7148 9-726 
ASSGN2 7-04 9-226 9-741 9-258 
ASWREG 6-0 -0 
| ATABIE 9-158 9-228 9-238 25-1454 25-318 25-410 254515 25-895 25-923 25-931 25-932 25-954 25=:51 
| ATESTN 6-0 6-0 
ATTN 7~O# 28-12 28-13 
9-790 9 9-a06« 
9-751 
11-1 ~} 22-1 
25-390 25-655 
25-849 25:71 
A39 ss. 25-885 
9-H42 = 25-328 «= 25-381 25-454 0-25-7384 25 =< 42 
9-A42> 25-328 }3=— 25-590 39 25-711 = 25-849 «= 25-865 0 25-885 390-295-927 25-<63 
22-1 25-328 
11-1 11-1 22-1 22-1 25-:39 
9-A62. «11-1 25-657 
22-1 25-281 25-417 25-618 25-972 
10-1 25-275 25-309 25-328 25-392 25-425 25-608 25-653 25-669 25-875 25-877 
9-F81 11-1 25-375 25-820 25-:14 
9-980 9-A30 A330 =A71— 229 25-387 25-422 25-805 25-965 25-:75 0 25-:21 
9-A95 25-375 25-387 25-390 25-392 25-422 25-425 25-618 25-655 25-657 25-734 
25-885 25-965 25-:39 25:75 25-:83 
9-:66 
9-252 9-303 9-484 9-718 9-746 9-810 9-263 9-a20 
9-329 9-507 9-769 9-840 9-(54 9-(99 26-18 26-27 29-308 
9-380 9-563 9-624 9-912 9-956 9-985 9=<44 9-=36 29-52% 








i 
F: 
| 


7-O# 


CZRMTBO RMOS/3/2 DR CaP Ty 


9-B5* 

9-16" 

25-4724 
-4964 


lol 
© (CREF VO1-05 ) 
9-E20* 9-E25 
9=-20* 9-24" 
25-5964 25-606 
25-546 25-548 
25-484 25-488 
25-588 25-605 
25-769 25-:66 
9-G81 ; 
26-604 
9-644 
9-D644 
22-1 24-14 
9-D41* 9-D52* 
9-D91 
25-<944 
9-672* 9-675* 
9-646 9-671* 
9-668* 9-;41 
9->91 9->97 
29-314 
11-1 11-1 
13- 
9-36 9-36 
29-24 29-25 
9-31 
28-224 
28-2354 
28-24 





K 12 
MACRO VO4.00 4-APR=-81 18:12:15 PAGE S-7 


9-H55* Jul 15* 

9-176 9-242 9-283 
25-6024 
25-492 25-501 25-510 25-514 
25-6084 25-715 25-910 25=«<15 
9-D70 

7 

9-674% 9-676 

9-;73 9-<07% QJe<13* YJuclS« 
9-311" 9-774 9-726 9-a11 
11-1 11-14 11=1* 11=1* 
9-50 9-61 9-67 9-68 
29-26 29-36 29-36 29-37 


25-526 


12-1 


9-141 


29-41 


25-533 


22-1 


13-1 
29-42 


25-539 


22-1 


13-1 
29-45 


EE OS EEE EE Ee ee —* - — 


25-543 


22-1 


29-4 
29-45 


25-557 


22-1* 


29-7 
29-45 


SEQ 0153 


25-563 


22-1* 


29-8 
29-48 


L 12 
CZ7RMTBO RMOS/3/2 DR CMPT TST MACRO VO4.00 4-APR-81 18:12:15 PAGE S-8 
CROSS REFERENCE TABLE (CREF VO1-05 ) SEQ 0154 
DISMNT 9=?29 99-2354 


] 
DISPLA 6-0# 9-31* 9-31 11-1* e2-1* 
DISPLY 9-a89 9-a95 9-A01 9-A07 9-A13 9-A18 9-A89 9-A97 9-A99 9~B05 9-811 9-B17 9-B25 9-B27 
9-832 9-B38 9-B44 9-B50 9-B56 9-B62 9-B67 9-B753 9-B79 9-B85 9-891 9-15 9=C(29 9-54 
9-C61 a 9-C96 9-C99 9=D12 9-F60 24-24 


——— Se ae 


47 = 25-357) 25-789 = 25-816 «= 2 5955 9 25957 25:30 2 
T* 25-448 25-628% 25-645 25-663" 25-792 25:32 2 


, 


9-158* 9-186 9-206 9-228 9-238* 9-317" 9-321 9-338 9-350 9-499* 9-503 9-526 
ait Po il Ms i a a 9-852 9-907 9~:47 9-:59 9-514 9-516 9-<40 9-=38 
25-371 = -25-551* 25-599" 25-6350" 25-643 25-662" 25-704* 25-812 25-847  25-879* 25-887* 25-907 


™m 
co 


25-359 25-944 25-958 
25-=344 


9-782 9-855 25-408 = 25-225 =25-226* 25-227* 25-228% 25-238* 25-270* 25-280" 25-324* 25-330« 
25-385 825-419 = 25-423 =. 25-552" 25-683* 25-795 25-803 25-818  25-873* 25-880* 25-896 25-960 


9-345 9-529 9-533 9-536 9-784 9-786 9-788 9-855 9-859 9-862 25-524 25-271* 
ee 25-302* 25-388  25~-684* 


28-134 


25-221 8925-440 =. 25 -493* 925-637" 25-648 25-664 25-666* 25-677* 25-694 25-705* 25-:35 25-:47% 


9-531 9-786* 9-857 

9-B00 9-B06 9-B12 9-B18 9-B24 9-B28 9-B35 9-B39 9-B45 9-B51 9-857 9-B6 5 
9-B80 9-B86 9-B92 9-B94H 9-C16 9-C30 

9-A02 9-A08 9-A14 9-A194 





| M12 
CZRMTBO RMOS/3/2 DR CMPT TST MACRO VO04.00 4-APR-81 18:12:15 PAGE S-9 
CROSS REFERENCE TABLE (CREF vO1-05 ) SEO 01° 
EM10 9-895 27-94 


25-735 = 25-:84 25-=198 
9-31 

99-4634 9-795 

9-256 9-2664 


9-31* 9-31* 9-33* 9-34* 9-D38* 9-059 9-D50*  9-D64* 11-1 11-1* 11 
22-1* 22-1* 22-1* 22-1* 23~1 23-1 235-1* 23-1* 23-1* 23-1* 26-34 26-35* 


25-8352 825-518 25-377 25-=904 

9-a07* 10-3 

9-360 9-362 9-365* 9-366 9-389 9-400 9-557 9-569 9-571 9-575 9-579 9-581 
9-644 9-650 9-652 9-654 9-905 9-927 9-929 9-931 9-951 9-959 9-961 9-963 


9-993 9-:45 9-:50 9-:52 9-:57 9-:72 9-:74 9=:79% Jes12e J=s13"® 9315 9-:56 
9-<48 9-<50 9-<5$2 9-<77 9-<79 9-<81 9-<89 9-<91 9-=32 9-=43 9-=45 9-=47 





ae a wre ee et we ee 


| CZRMTBO RMOS/3/2 DR CMPT TST 


CROSS REFERENCE TABLE (CREF v01-05 ) 
FMTER 9-B614 


9-E 94a 


25-725 
9-6 

24-1 

24-2 


9-;994 
13-1 


9-:21 
9-727 


9-?054 


9-93 


25-799 25-838 
9-36 9-50 
24-1 24-1 
24-2 

9-A83 9-H58 
9-E02* 9-E03 
13-1 29-18 
11-1 11-1 
9-751 9-816 
9-;66 

9-=49 9-=77 
9-95 9-96" 


25-909 25-964 
9-61 9-67 
24-1 24-1 
29-414 
9-E05* 
29-19 
11-14 11-18 
9-736 9-a42u 


N 12 
MACRO V04.00 4-APR-81 18:12:15 PAGE S-10 


25-:38 
9-68 
24-1 


11<1* 


———— ee ee ee ee ee ee -- 
_— a 


25-:72 
24-1 
24-1 


11-18 


24-1 
24-1 


SCQ 0156 


24-1 
26-1 


—— — —. ... 


LEO _— — 





B 13 

CZRMTBO RMOS/3/2 CR CMPT TST MACRO VO06.90 4-APR-B1 18:12:15 PAGE S-11 
Lm $n heh me O11 
M.DP44 Saf 9-F 108 ' 
M.DPSO 9-€ 9-F 148 ‘ 
M.DPID 9-£714 
MAKEUP 9-:054 9-<88 =72 
MARKX  9-a37 29-19 
MCPEMX 25-157H 25:01 25--47 
MESG] 9-145 266 9-313 9-495 S-757 (9+ B2B 29-18 
ME SG10 9-370 9-543 9-794 9-869 29-74 
isle Sass SB he 
mescls 9- 09 9-744 $9-108 
Me SG14 9-7 9-826 29-124 
MESS15 1 1 
ME SG16 19, 144 
MESGI8 9 lee 

3615 9=¢ 29=344 

5 132450 $555 29-24 
MES e- 64 $3. 7# 

S 9-834 29-44 

$66 9-756 9-827 29-234 

S 9-841 29-54 

38 9-843 29-64 
mM 9-D98* 9-099 9-E01« 


4 
= 





9-173 9-281 
MONTR 
MRMC } 
N 
NEDELR 
NOTS 
OA ne 9=>62* 9-208 9-ac7* 9-930 9-934" 9-238 
FCOD as 9-950" 9:22 9-:24% 9J=-:67 9-;45 9-;51 9-<75% 9-<96 9-<99% 9-205" 8 Jeel2e Jezdie JeroOB. 
rate 4-9 
OFFS 9-987 7414 9-<B6 9-=70 
OF in 1 9-A12 
OPIER . aa 
OP 25-37 25-4 sf ad 25-936 25-978 
Oven 355 9->58 9->69 9->73 9->77 9->87 9-712 
OVWN ? 
OVWNIO =? 
OVWNI?T 86? } 
onerie 7-0" 
OVWN? 7-08 





—— — 


CZ9M¢TBO RMOS/3/2 DR CMPT TST 


C 13 
MACRO VO46.00 4-APR-81 18:12:15 PAGE S-12 


CROSS REF ~ TABLE (CREF vO1-05 ») 
OVWN14 
OVWNIS 7-08 
veg 7-0" 
OVWN1 7-04 
OVWN18 ote 
ape 7-08 
OvinG 7-04 
Oven abe 
wet 
yf € 
OVWPO 7-04 9-;53 9->69 9->87 
CVWwP'1 7-04 
OVWP10 7-04 
OVWP 1 7-04 
ts 7-04 
OVWP 1 7-04 
OVWP14 7-04 
OVWP15 7-04 
py be 7-04 
OVWP'1 7-04 
OVWP18 7 
OVWP 7= 
OVWP: 7 
OVWPS 7-0" 
OVWP5 Se 
ore 7-04 
pee a 
PACK 7-04 9-619* 9-645 
PARER 9-A50 9-B4 34 
PCLOCK 7=0# 9=D37* 9=D42* 
PFECH 12=1 12-14 
PFECH1 12=1 12-14 
a4 he 12-1 ak 
PFECHS 12=1 le-14 
PFECHG 12-1 12-14 
PFTSTIN ‘12-1 12-14 12-1* 
PIRQ 
PIRQVE 
Ary 25-589 25-891 25-926 25-970 25-=704 
nt 
BRS 
PR4 
PRS 
BRS 
PRINT 9->75 9->79 9->85 9->89 9->95 9-701 99-7894 
PROCES 9-655 9-932 9-964 9-994 9-<53 9-<82 9-<92 9-=48 
retin 








a 


9-=76 


9-484 


SEQ 0156 


D 13 
CZRMTBO RMOS/3/2 DR CMPT TST MACRO V046.00 4-APR-81 18:12:15 PAGE S-13 


_ CROSS sah TABLE (CREF vO1-05 ) SEQ 0159 
| PS 4-58 4-584 9-80" ‘i 55 9-:56* 9-:65* G-E19« 9-E31* 9-F 68 9-F 69" 9-H67 9 25-213 252142 925-2438 
25-2518 26-345 25~-346* 25-399 25-409 25~-<457« 
7-04 9-629 9-916 
4-584 
9-a73 9-a884 
4-584 9-318 9-31% 15-18 15-1s 15-18 15-1« 15-1« 15<18 
25~<5 54 aE 25-=19* 25-= 25-=36* 25-=56 25-=70* 
9-165 64 
5-<60 25-<67 25-<72 25-<864 
5-<65 25-<70 25-<73 25-<86# 
25-<65 25-<70 25-<74 25-<864 
5-<63 25-<70 25-<75 25-<864 
5-<6 25-<70 25-<76 25-<864 
5-<6 5-<7 25-<77 25-<864 
5-<63 25-<70 25-<78 25-<864 
5-<63 5-<7 25-<79 25-<B64 
$2-< 25-=21 25-=38* 25-=39% 25-=40 25-=42* 
5-<674 25-=21* 25-=59 25-=72 25-=73% 25-=74% 25-=75 25-=77« 
25-<72# 25-=01 25-=06 25-=42 25-=77 F 
-<7 5-=40 25-=75 » 
$2" sao 25~<874 
9-146 9-148 9-267 9-269 9-314 9-316 9-496 9-498 9-758 9-760 9-829 9-831 29-208 
4-584 9-31 9-31* 9-31* 
4-584 
25-;03* 25-;04* 25-; 28-14 
25-283 25-313 25-319 25-537 25-561 925-575. 25-713 25-767 = 25-841 = 25-851 25-867 25-222 25-201 25-254 
5-;68 5-;74  25-<07 
25-;054 25-;33 
25-;01* 25-;324 
$2715 25-:24 25-;344 
25=;1 25~; 3564 
25-;074 25-;08 28-14 28-15 
9-276 9-H49 9-HB9 24-14 
ya 9-357 9-311 9-=35 
9-152 9-331 df 9-722 9-774 9-845 9-746 24-14 26-19 26-28 
-O# 9-900 9-:49 9-=27 9=->34 9->73 
7-04 
7-04 
7-04 
7-04 
7-04 
7-04 
7-04 ; 
7-04 
7-04 
7-04 
7-04 
7-0" 
7-04 
7-0" 
7-04 
7-0" 
7-04 
7-04 
7-04 9-347 9->32 9->77 





— CZRMTBO RMOS/3/2 DR CMPT TST 


| GROSS REFERENCE TABLE (CREF VO1~05 ) 


ee ee 
a eee = 


RD -O# 
—RDPIO. = 7=0# 
RDP11 7-04 
RDP12 7-04 
RDP13 7-04 
RDP14 7-04 
RDP15 7-0" 
RDP16 7-04 
RDP17 7-0" 
RDP18 7-04 
RDP2 7-0" 
RDP 3 7-04 
RDPS 7-04 
RDPS 7-04 
RDP6 7-04 
RDP7 7-04 
RDP8 7-04 
RDPS 7-04 
READIN 4-954 
RE CAL 4-904 
RELSE 4-924 
REPLZ 9-075 
RESREG 9-C82 
25-=10 
RESVEC 4-584 
-REG 7-0 
28-17 
RMOS 9-359 
9-73 
25-:20 
RMAS 25-1804 
RMBA 9-:64* 
RMCS1 9-;22* 
25-714 
RMCS2 :60* 
25-712* 
RMDA :62* 
RMDB 25-1824 
RMD C :61* 
RMDS 25-1784 
RMD T 25-1844 
RMECT 25-1914 
RMEC2 25-1924 
RMER1 25-1794 
RMERZ2 25-190# 
RMERRS 25-234 
RMHR 5-1884 
RMINIT 9-335 
RMLA 25-1814 
RMAR1 25-1834 
RMMR2 25-1894 
RMOF 25-1 
RMSN 25-1854 
RMTMR 07 
RMVE C 9-74 
9-824+ 
RM C 9-:63* 


9-D80 


9-D85 
9-E60 


25-:09 
25-765 


25-274" 


2 
25-509 


25-500 
25-868 


25-941 
25-810 
9-849 


25-542 


9-309* 
25-1634 


25-:27 
25-931« 


25-562 


9-490* 
25-229 


25-60 
25-954" 


25-416* 
5-972 
5-365* 
25-;10 


MIM 


25-:23 


25-940* 
9-968 


25-252 


25-365 


25-941* 
9-998 


E 13 
MACRO VO4.00 4-APR-81 18:12:15 PAGE S=-14 


25-491 


25-476" 
25-;97* 


25-942s 
9-<27 


SEE EE 6 + ee 


25-513 


25-497 
25-<03 


25-945" 
9-<56 


9-697* 


25-556 


25-519 
25~-<38* 


28-13 
9-=52 


9-749 


28-13 
9-=80 


9-7518 


25-698 


28-17 
28-20 
25-3454 
25-496 


25-587 
25-653 


28-13 
9-a59 


9-752* 


SEQ 0160 
25-:01 25-<26 
28-17 28-17 
28-20 28-20 
25-518 25-693 
25-604 25-625 
25-669 25-680" 
28-13 

9-RA99 25-2128 
9-816" 99-8178 


LLL Le 


CZ7RMTBO RMOS/3/2 DR CMPT TST 
CROSS REFERENCE TABLE (CREF v01-05 ) 
_ RNOP 4-88¢% 


88 
RSTART 7-08 9-11 9-15 9-19 9-23 9-465 
10-11 
. RIC 4-944 
SAVEFG 9-101" 9-336 9-524% 9-779" 9=-850* 99-9356" 
—117# 25-591 25-718 25-928 
_ SAVREG 9-C68 9-E18  9-E50 20-1 21-1 24-18 
sc 25-697 25-7654 
$c11 25-840 25-848 25-9194 
sci2 25-801 25-814 25-9394 
$c13 25-791 25-794 25-9504 
$c3 25-7804 25-785 
SC4 25-7834 25-817 25-831 25-833 25-884 25-905 
sc5 25-781 25-7 
SC6 25-813 25-8354 
SC6A 25-811 25-8614 
SC7 25-850 25-864 25-866 25-876 25-8874 
sc8 25-828 25-843 25-853 25-859 25-869 25-904 
SCOPE 4-584 9-481 9-554 9-610 9-693 9-807 
SCORE 9-972 9-:07 9-;408  9-=61 -= 
SEARCH 4-974 
SECLMT 7-08 
SECOND 7-04 9-84« 9-083 9-D94* 9-D95 9-D97* 
SEEK 4-894 
SEEKFG 9-337 9-525" 9-780" 9-851* 9-937% 9-970 
25-217 25-442 
SELDRV 4-1 
SELFO 7-04 9-<32 9-<70 9-=08 9->31 9=->33 
SELF 1 7-0F 
SELF1O0 7-O# 
SELF 17 7-04 
SELF12 7-08 
SELF13 7-08 
SELF 14 7-04 
SELF1S 7-048 
SELF16 7-08 
SELF17 7-08 
SELF18 7-04 9-<34 
SELF 2 7-04 
SELF 3 7-0" 
SELFS 7-04 
SELFS 7-04 
SELF6 7-04 
SELF7 7-0# 
SELF 8 7-04 
SELF9 7-04 
SELF Xx 9-316 29-174 
SET.IE 25-2466 25-277 25-383 25-456 25-685 25-773 
SETFM 4-994 
SETVEC 9-1008 
SIXTEE -0#" 9-81 9=-D91*  9=-)93 
SIZMEM 894 
SKIER 9-A76 9-B784 
SLASH 29-328 
SPATH 9->64 9->834 
SPOT x 9-382 99-4198 


Neen rT RS it Se eer eee 


9-540 


9=969* 
25-212 


25-917 


: i 
MACRO VO04.00 4-APR=-81 18:12:15 PAGE S=15 


9-595 


9-999« 


25-348 


25-957 


. 25-948 


896 


9-:00* 


9->93 


25~< 364 


ae em ewe 


9-<26 


G=-<29e 


9=->99 


9-685 


9~-<28* 
25-408 


25-979 


9-=24 


9-<58* 


9-866 


9-<57« 
25-640 


9=->26 


9-=548 


9-A23 


9-=53* 
25-692 


9-=82« 


9-A84 


GYo=§1* 
25-989 


9-a61* 


SEQ 0161 


9=DE2 


9-a60* 
25-;93 


9-CO1* 


9-59 


9-C00« 
25-<94 


25-1254 


--— 


CZRMTBO RMOS5S/3/2 DR CMPT TST 


CROSS REFERENCE 
SRCHWT 8625-878 
STACK 4-584 
STARS 10-9 
STARSC 7 
START 5-1 
START1 5-3 
START2 5-5 
START3 9-17 
STATIN 7-0# 
STKLMT 4-584 
STNDAT 7-0" 
STO 25-996 
STO1 25-: 304 
STO2 25-:29 
S103 25-:52 
STOS 25-:664 
STO6 25-:54 
STO7 25-:56 
STO8 25-:76 
STO9 25-:27 
SVRH70 25-593 
SwO 4-5 
SwOO 4-58 
Sw01 4-58 
SwO2 4-58 
SwO0 3 4-58 
Sw04 4-58 
SwO05 4-58 
SwO6 4-58 
SwO7 4-58 
SwO8 4-58 
SwO09 4-58 
Sw 4-584 
SW10 4-584 
SW17 4-584 
SW12 4-584 
Sw 3 4-584 
SW14 4-584 
Sw15 4-584 
SwW2 4-584 
Sw3 4-584 
SWS 4-584 
Sw5 4-584 
SwW6 4-584 
SW7 4-584 
Sw8 4-584 
SW9 4-584 
SWR A 
22-1 
SWREG 5-14 
SwTIM 9-a/79 
SYSADR 7-04 
T45 9-al2 
TAB.XY 5-124 
TABLEX 7-08 
TEI TvE 4-584 


TABLE (CREF v0O1-05 ) 
25-410" a ret 
9-31 9-483 
29-364 
9-341 9-365 9-<03" 
9-154 
9-194 
9-234 
9-21 9-264 
9-72 9-C80 
25=-:1 . 
25-:31 25-:33 25=-:504 
25-:594 
25-:694 
25-:784 
25-:844 
25-:37 25-:48 25-:57 
25-720 25-736 25-800 
4-584 
4-584 
4-584 
4-584 
4-584 
4-584 
4-584 
4-584 
4-584 
4-584 
9-C91 
9-(€94 
9-31 9-31 9-31* 
11-1 11-1 11-1 
22-1* 22-1 22-1* 
9-31 9-36 9-H61 
9-A064 
9-183 9-196* 9=197s. 
hl 9-826 9-933 
9-:62* 9-;80 
9-31" 9-31» 


25-9328 
9-556 9-612 
25-:62 25-:64 
25-855 25-874 
9-31 9-31" 
11-1 15=1 
22-1*% 
18-1 18-1 
9-305 9-306 
29-184 


9-695 


25-:67 
25-930 


9~36 
15-18 


9-521 


G 13 
MACRO VO4.00 4=-APR=-81 18:12:15 PAGE S-16 


9-809 


25=:74 
25-966 


9-387 
18-1 


9-522 


9-898 


25-:82 
25~-:49 


9-398 
18-18 


9-748 


Jo< 7] 


25-:864 


25-:85 


9-¢91 
22> 


9-749 


9-=26 


25-:9358 


9-€94 
22-1 


9-823 


9->28 


9-F 81 
22>) 


9-824 


9~H61 
22-1 


SEQ 0160 


10-1 
ecm 


CZRMTBO RMOS/3/2 DR CMPT TST 
CROSS REFERENCE TABLE (CREF v01-05 ) 
1D 25-6 25-7 


| TIMER 


 TKVEC 
 -TPVEC 
 TRAPVE 


—— 
—_——— -_— = 


TRFER 
TRKLMT 


TRNSWT 


96 04a 
9=:;20" 25-1508 25-451" 25-597 
25-:71% 25=-:78 
4-584 9-H392 = 9=H40* 
4-584 
4-584 9-31 9-31 
9-A35 9-B72a 
7-0" 9=-344% 9-347" 9-355 
9-726 
9=:15% 25-798 25-473* 25-631 
4-584 
9-403 99-4818 9-544 9-729 
9-=244 
9->264 
909-5544 
9-591 9-46104 
1 99-6934 
9-8074 9-870 9-764 
9-8964 
9-:26 9-<264 
7-04 9-482" 9-555" 9-611* 
9-811 24-14 
9-6 9-36 9-50 9-56 
9-165 9-167 9-246 9-247 
9-310 9-311 9-312 9-313 
9-329 9-369 9-370 9-396 
9-500 9-501 9-502 9-507 
9-682 9-684 9-692 
9-762 9-763 9-764 9-769 
9-830 9-831 9-835 9-834 
9-735 9-738 9-739 9-744 
9-a12 9-315 9-916 9-a17 
9-A77 9-A78 9-A83 9-( 34 
9-H57 9-H58 9-H65 9-H66 
9-131 10-5 10-6 10-7 
12-1 12-1 13-1 15-1 
26-18 26-24 26-27 
9-8 12-1 12-1 18-1 
24-18 
9-53 9-64 9-166 9-256 
9-F 684 
9-375 9-20944 
25-1064 25-272* 25-355 25-370+ 
7-04 9-248* 
9-A29 9-B90# 
A553 9-B844 
25-721 25-741 
4-1014 577 9-955 9-;08 
9-A32 9-A944 
4-1024 
9-A59 9-B554 
25-;50* 25-;60* 25-:;634 28-15 
25-;614% 25-:81 
25-:47* 25-:804 
25-356 25-;67 25-:70 25-:76 
5S-;72 25-;844 
25-783 25-;854 


25-661* 


9-589 
25-6 36* 


9-694* 


24-14 
9-322 
25~553* 


9-<69 


25-; 824 


25-707« 


9-665 
25-647 


9-808* 


26-17 
9-504 


25-629* 


25-836" 


9-787« 
25-667* 


9-897 


26-26 
9-702 


25-668* 


H 13 
MACRO VO04.00 4=-APR=-81 18:12:15 PAGE S=-17 


25-882* 


9-790 
25-678" 


9-;09 
9-144 


9-766 


25-797 


25-9348 


9-939 
25-709 


9-837 


25-892 


25-9518 25-9758 
9-:19 9-<60 
25-7108 25=-:% 
9-<350* Y9-=25* 
9-146 9-147 
9-269 9-274 
9-320 9-325 
9-494 9-495 
9-542 9-543 
9-756 9-757 
9-825 9-826 
9-864 9-865 
9-a02 9-a03 
9-237 9-A19 
9-D77 9-D82 
9-116 9-121 
12-1 12-1 
18-1 18-1 
9-741 9-297 
25-894* 25-919 


25-992 


9-=03 
25-:468 


24-14 


25-921* 


SEQ 0764 
25-9940 25-7638 
9=->04 G=>35 
a 
9-149 9-150 
9-280 9-282 
9-327 9-328 
9-497 
9-593 9-594 
9-759 9-760 
9-828 9-829 
9-269 9-730 
9-205 9-310 
9-A21 9-A22 
9-H53 9-H54 
9-124 9-127 
12-1 12-1 
24-14 26-15 
25-:45* 


ee - 
—- —- cn,. £1 - 


“2RMTBO RMOS/3/2 DR CMPT TST 


@RT.RM 25-306 25-310 25-482 
25-603 25-624 25-826 

WRT.WD 25=:48* 25-:52 25-:59s 
3@ 9-566 (9-587 


KEND2 9-763 9-259 9~?664 
XPASS1 9-285 99-2988 9-402 


KXPASS2 9-287 9-728 09-7414 
KXDP 7-0 Ge] ® Ge 


25-;6284 28-15 


25-499 
S-;474 


9-< 58 


9-52 


25-508 


9-65 


) I 13 
MACRO VO4.00 4-APR-81 18:12:15 PAGE S-18 
CROSS REFERENCE TABLE (CREF vO1-05 ) 


252512 


9-161 


25-524 


9-163 


25-531 


25-541 


25-555 


25-565 


SEQ 0164 


25-586 


J 13 
CZRMTBO RMOS/3/¢e DR CMPT TST MACRO VO04.00 4=APR=-81 18:12:15 PAGE M-=1 
CROSS REFERENCE TABLE (CREF vOi=-05 ) SEQ 0165 


9-554 9-610 9-693 9-807 9-896 9-<26 9-=24 9=->26 
24-1 24~1 24-1 24=1 24-1 24-1 24-1 24-1 24-1 24-14 24-2 


6-04 


4-56 
9-G81 


25-830 25-832 25-318 25=;77 
9-A80 9-A81 9-A82 9-B94 9-B95 9-B96 9-B97 = 22-1 26-43 


es-1 

9-364 

9-554 9-610 9-693 9-807 9-896 9-<26 9-=24 9->26 

9-<16 9-959 9-E47 14-1 14-1 15-1 15-1 17=1 19-1 

9-599 9-789 9-E40 = 141 14-1 14-1 15-1 15-1 17-1 19-1 


24-1 24-1 24-1 24-1 24-1 24-1 24-1 24-1 24-1 24-18 24-2 


5-11 


5 5-11 6-0 6-0 6-0 9-481 9-554 9-610 9-693 9-807 9-896 
9->26 10- 1-1 4-1 17-1 


15=1 15=17 16-1 18-1 18-1 








ee — e  e  e  e - -) —— - en mee = ~ -e 


oe 


K 13 
- CZRMTBO RMOS/3/2 DR CMPT TST MACRO V04.00 4=APR=-81 18:12:15 PAGE M-2 
— CROSS REFERENCE TABLE (CREF vO1=-05 ) 


18-1 19=1 20-1 21-1 22>) 23-1 
SwRSU 4-584 9-31 9-314 
TRMTRP 24-18 24-3 


TYPDEC 4-584 9-a11 
TYPNAM 4-584 9-36 


TYPNUM 4-584 

TYPOCT aSBB Lae 2e1 183 

y _ = = Sane 

TYPTXT 4-584 9-6 9-50 9-61 9-67 9-68 


24-1 


25-15 


Ones Cee ee me re ee we ee ee 


SEQ 0166 


